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MODULE LBR_INDEX 
eccin (IDENT = ‘V04-000') = ! Index manipulation routines 


' 
LRA RRA AERA EAE RARER AAA ATTA EERE AAA RATATAT AEE 


it COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
't ONLY IN ACCORDANCE WITH THE T OF SUCH LICENSE AND WITH THE 
'® INCLUSION OF THE ABOVE Spl NOTICE. THIS SOFTWARE OR ANY OTHER 


*® 

® 

® 

we 

® 

® 

® 

* 

M ® 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ies TRANSFERRED. * 
® 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
® 

® 

* 

® 

* 

® 

® 

® 


:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 


ITY FOR THE USE OR _ RELIABILITY OF ITS 


'* DIGITAL ASSUMES NO RESPONSIBIL 
IS NOT SUPPLIED BY DIGITAL. 


I 
'® SOFTWARE ON EQUIPMENT WHICH 
PITITITITILILILI LLL LLL LLL Ti LiL. 
'e4 
} 
FACILITY: Library access procedures 
i ABSTRACT: 


The VAX/VMS Librarian procedures implement a standard access method 
to Libraries through a shared, common procedure set. 


ENVIRONMENT : 


VAX native, user mode. 


AUTHOR: Tim Halvorsen, Benn Schreiber 11-Jun-1979 
MODIFIED BY: 
i v03-004 GJA0078 Greg Awdziewicz 22-Mar-1984 
Put traverse_keys fix back in. 
i V03-003 Jwiccy3 Jim Teague 01-Feb-1983 
Undo last fix. 
i v03-002 ywT0091 Jim Teague 20-Jan-1983 
Propagate status returned from traverse or traversed. 
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v03-001 Jwr0058 ague 19-Oct-1982 
Fix variebtevtenann inde module deletion bug. 
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key_search 
key searche, 


' Binar key search 
en 
find_index : JSB_2, 


! Variable gth keyword search 
! Locate index block 


! parent blocks. f i 
' Check if index is locked from modification 
! Mark index block modifie 


1 ZSBITL ‘Declarations’; 
LIBRARY "SYS$LIBRARY:STARLET.L32'; ! VAX/VMS common definitions 
REQUIRE ‘PREFIX’; ! Librarian general definitions 
REQUIRE "LBRDEF’; ! Librarian structure definitions 
REQUIRE ‘OLDFMTDEF'; ! Old Library format definitions 
LINKAGE 
fmg_match = JSB (REGISTER = 2, REGISTER = 3, 
REGISTER = 4, REGISTER = 5) : NOTUSED (10, 11); ! Linkage for FMGSMATCH_NAME 
FORWARD ROUTINE 
Lbr$set_index, ' Set current index number 
Lbr$lookup_key, ' Lookup a key and return RFA 
Lor$Sinsert_key, ' Insert a key 
lbr$replace_key, ' Replace rfa for key and modify module header ref. counts 
Lor$delete_key, ' Delete a key 
Lbr$get_index, ' Return all entries of an index 
lor$search, ! Search for all keys assoc. with RFA 
check_wild, ' Check wildcard name against entry 
call_user, ! Call user action routine 
add_key, ! Add a key to a specified index | 
delete_key, ' Delete ~ from current or inary index 
remove_key, ' Remove a key from a specified index 
pen Nay ! Lookup a key and return an RFA | 
traverse_keys, ' Traverse an index one key at a time 
create_index, ' Create an index block 
delete_index, ! Deallocate an index block 
find_key, Find key in index structure 
! 
1 
' 
' 
' 
i 
' 
' 
' 


check_lock : JSB_0, 
mark_dirty : JSB_1; 


EXTERNAL ROUTINE 
fmg$match_name : -. mytch, 
make _upper_case : JSB 3, 
noveto_upper_case : J$B_3, 


' Perform embedded wild-card mageh ong 
: poneers name to upper case, check length 
' Conver 


incr_refcnt, ! Increment module reference count 
decr_refcnt, ! Decrement module reference count 
lbr_old_ikp_key, ' Lookup key in old Library j 
L ! Return contents of old Avorery index 
br_old_src_idx, ! Search old Library index for RFA 


' Read record from old format Library 
' Allocate dynamic memory 

' Allocate zeroed dynamic memory 

: Pept iocate dynsatc memory 

! Allocate disk bloc 

' Deallocate disk block 
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add_index ! Add index pointer to parent block : ; 

add indexe, ' Add index pointer to parent block of variable index 
reset_highest ! Reset highest keys in parent blocks 

reset_higheste, ' Reset highest keys in variable len index 
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VINE EEL 


Declarations 

0942 1 read_block : 1586 

0945 «1 read_n_block : SB. 2. 

0944 1 find_bTock : = 

0945 1 read_record : 

0946 1 rial peered,” 

0947 1 add_ cache : JSB_2 

0948 1 Lookup_ — : 

0949 +1 empty_Cac 

0950 1 set_modu e,. 

0951 1 ncrirfa : {88.2 

$326 1 validate_ ctl 

0953 1 

0954 1 EXTERNAL 

0955 1 Lbr$gl_maxread, 

0956 1 Lbr$gl_maxidx rd, 

0957 1 Lbr$gl_control: 

0958 #1 

0959 1 EXTERNAL LITERAL 

0960 1 Lor$_dupkey, 

0961 1 Lor$_illct 

0962 1 lor$_ illidxnum, 

0963 1 Lor$_illop 

0964 «(1 lor intrnlerr, 

0965 1 Lor$_invkey, 

0966 1 lLor$_invrfa 

0967 1 Lbr$ ~keynot ind, 

0968 1 Lbr$_Libnotopn, 

0969 1 Lor$~ nomtchfou, 

0970 1 Lbr$_nulidx, 

0971 : Lbr$_updurtrav; 
1 


H 15 
16-Sep-1984 VAX-11 BLi 
14- — 93; 35: lf DISKSVMSMA 
Read disk bloc 
Read and cache “suteinls oe blocks 
Locate disk block and cache it 
Read data record 
Write data record 
Add cache entry 
Lookup cache entry 
Empty cache - urite all dirty blocks 
Read module Rooter 


Increment an RFA 
Validate control table index 


Max number of blocks to read at once 
Max number of blocks in one index read 


; ! Address of control block 
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LBR_INDEX 1b-5e 1984 01:56:1 VAX=11 Bliss-32 V4.0-74 Page 5) 
18c2000 LBRSSET_INDEX ergee 138s 93:88:25 UN SUmGMASTERSCLGR SRCoINDEX.832:1 29° (33 
H 137 974 1 XSBITL ‘LBRSSET_INDEX'; 
7 : 979 GLOBAL ROUTINE LBr$set_index (ctl_index, index) = 
3 136 977 1 !-<- 
: 3 ar8 1% , 
; 158 979 1! Set the current primary index for later operations. 
; iy 980 1! 
: 160 0981 1°! Inputs: 
s 6! bons 1! ; — 7 
3 166 0985 1! ctl_index = Address of longword containing control table index. 
s 0984 1! index = Primary index number 
> 164 4 1! 
; 6165 9 $ 1 ! Outputs: 
; 166 0987 1! ; 
; 167 0988 1! Lor$_illidxnum - illegal index number 
> 168 0989 1! Lor$_Libnotopn - ttorecy file not open 
> 169 0990 1! Lor$_insvirmem = insufficent virtual memory 
: 170 0991 1! lbr$_illctl = illegal control table index 
3: 6171 0992 1 !--- 
: ve 09935 1 
: iv 0994 BEGIN 
; 174 0995 
3; 175 0996 BUILTIN ; 
: 176 0997 NULLPARAMETER; ! True if argument unspecified 
ie 0998 
; i178 0999 . é 
3 +4 H+ perform (validate_ctl (..ctl_index)); ! Validate control table index 
> «(181 100 : BEGIN 
: 182 100 3 BIND : 
: 4 4 ; header = .lbr$gl_control Clbr$l_hdrptr]: BBLOCK; ! Get address of library header 
3 6185 1006 3 IF NULLPARAMETER(2) : ! If index number not supplied 
; «186 1007 3 OR ..index GTRU .header Clhd$b_nindex] ! If greater than maximum, 
3: 187 1008 3 OR ..index EQL 0 
; 188 1009 3 Shag A 
3 H+ ety ; RETURN Lor$_illidxnum; ' return with error 
3; 6191 4 at 3 lLbr$gl_control Clor$l_curidx] = ..index; ! Save current index number 
: 192 1013 2 END; 
s 193 1014 2 
: 194 1015 2 RETURN true; 
s 195 1016 2 
; 196 1017 1 END; 


LBR_ INDEX 
\V0%-000\ 


FMGSMATCH_NAME, MAKE_UPPER_CASE 
MOVETO_UPPER_CA 
INCR REFCNT. ‘DECR REF CNT 
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LBR_INDEX 16-Sep-1984 01:56:1 VAX-11 Bliss-32 V Page 6 
ipe=d00 LBRSSET_INDEX 127808- 1382 93:38:) DISKSVMSMASTER: clea OS RCSINDEX. B32;1 . (3). 

-EXTRN DEALLOC_MEM, ALLOC_BLOCK 

SEXTRN DEALLOC"BLOCK, READ BLOCK | 

-EXTRN READ_N BLOCK, FIND_BLOCK 

.EXTRN READ-RECORD, WRITE-RECORD 

~EXTRN ADD CACHE LOOKUP _CACHE 

~EXTRN par CACHE séI Tpopuee 

*EXTRN R_RFA, ALD 

~EXTRN taRStL _MAXRE EADS “Target MAX IDXRD 

EXT LBRS6L CONTROL cpOr Key 

~EXTRN tBRETILLOPS LBR $ 

“EXTRN LBRS~INVKEY 


BRS_INVRFA 
.EXTRN LBRS-KEYNOT STENDS D, CBRS. CP TBNOTOPN 
.EXTRN LBRS"NOMTCHFOU, LBR$-NULIDX 
TEXTRN LBRS-UPDURTRAV 


-PSECT S$CODE$,NOWRT,2 


RN 
TRN $_ICLCTL, tors NE IDXNUM | 
INTRNLERR | 


OFFC 00000 ~ENTRY LORS SET LIMOEX. Save R2,R3,R4,R5,R6,R7,R8,- ; 0975 
50 04 BC DO 00002 MOVL Sete INDEX, RO : 1000 
00006 30 00006 BSBW VALIBATE_CT : 
31 50 €9 00009 BLBC -— STATUS, : 
51 00006 CF 50 0000¢ MOVL § LBRS$GL. CONTROL, R1 + 1004 
50 0A Al DO 00011 MOVL  10(R1)> RO : 
02 6¢ 91 90015 CMPB s-« CAP), #2 + 1006 
13 1F 00018 BLSSU_1$ : 
08 AC D5 OOOIA STL 8 (AP) : 
OE 13 0001D BEQL ~=s«é1$ : 
08 BC 01 Ad 08 00 ED 0001F CMP2V #0, #8, 1(RO), @INDEX : 1007) 
05 1F 00026 BLSSU.-1$ : 
08 BC D5 00028 TSTL @INDEX : 1008 
08 12 00028 BNEQ 2$ : 
50 000000006 8F v0 S008 1$: MOVL #LBRS_ILLIDXNUM, RO + 1010 
12 Al 08 BC DO 00035 2s: MOVL §@INDEX, 18(R1) : 1012 
50 01 DO 0003A MOVL #1, RO : 1015 
04 0003D 3$ RET : 1017 


; Routine Size: 62 bytes, Routine Base: S$CODE$ + 0000 


Se 1 


K 15 | 
LBR_INDEX 16-Sep-1984 01:56:1 VAX=11 Bliss=-32 V4.0-74 Pa 7 LB 
Vbe2000 LBRSLOOKUP_KEY org 8=18e 93:35:19 DLEKSVMEMASTERSCLBR SRCSINDEX.B32; 1 - (4). vO 
; 198 1018 1 XSBITL | "LBRSLOOKUP KEY"; | : 
: phe 9 } GLOBAL ROUTINE Lbr$Tookup_key (ctl_index, key_name, retrfa) = | : 
: 201 1021 1 t=== | ; 
; o¢ 10 ; 1! 3 
3; a 10 1! Lookup a specified key and return the RFA associated 3 
: os 18 : : } with the key. : 
: 206 1026 1 Inputs: F 
: 207 1027 1! ; 
> 208 1028 1! ctl_index = Address of a longword containing control table index. : 
; 209 1029 1! key_name = Address of descriptor if ASCII keys, F 
: 210 1030 1! or actual binary key. J 3 
: 13 bt} : retrfa = Address of 6-byte buffer to receive RFA. “ 
; $18 1938 1 ' Outputs: : 
: 2146 1034 1! 3 
: $i2 1032 1 retrfa = RFA associated with key, if found. : 
: sii 1037 1! Lbr$_Libnotopn = Library not open | : 
; 28 1038 1! rere -neynot tnd - key not found : : 
: $8 HF ! Lbr$_illctl = illegal control table inaex : 
: 221 1041 1 i-=- ; 
; 222 ek 1 3 
a dee 104 § BEGIN 3 
: 224 oe 3 
a gee $065 2 MAP : 
; 226 1046 § key_name : REF BBLOCK, ! Pointer to string descriptor 3 
: ssf od retrfa: REF BBLOCK; ' Pointer to RFA 3 
3 | : 
; @ 1049 LOCAL : 
: 230 1050 keydesc : BBLOCK Cdsc$c_s_bin], 
s gol 1051 keynambuf : BBLOCK Clbr$c_maxkeylen), 
: $36 1036 § recdesc : BBLOCK Cdsc$c_s_bln]; 
> 234 1054 2 BIND | 
s 235 1055 length = recdesc Cdsc$w_length] : WORD, 
: $38 1936 addr = recdesc Cdsc$a_pointer] : REF BBLOCK; | 
; 238 1058 ; per fora (validate_ctl (..ctl_index)); —! Validate control table index 
; 239 1059 eydesc pgscéu_ length) = .key_name Cdsc$w_length];! Set length of name 
; 240 1060 keydesc Cdsc$a_pointer] = keynambuf; | 
: 241 1061 CHSMOVE (.key_name EdscSu_ length). : 
3 4g 13e6 -key_name Cdsc$a_pointer], .keydesc Cdsc$a_pointer]); 
> 264 1064 3 BEGIN 
3 se? 1065 BIND 
: 246 1066 header = «threat controlClbr$l_hdrptr)_: BBLOCK, ! Pointer to header 
: oy 1067 context = .lbr$gl_controlClor$Ul_ctxptr) : BBLOCK, ! Pointer to context block 
: 248 1068 eomodrfa = context(ctx$b_eomodrfa] : BBLOCK, : End of module RFA 
: 250 199) ; readrfa = context(ctx$b_readrfa] : BBLOCK; ' Next RFA for read | 
; 3) 24 ; yg centontlctuby_oldi (2 ! If old format Library 
; 338 1978 BEGIN | 
3 6254 1074 4 perform(lbr_old_lkp_key (keydesc, .retrfa));! Then process elsewhere 
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LBRSLOOKUP_KEY 14-Sep-1984 12:37:4 DISKSVMSMASTER: clea’ SRC INDEX .832;1 (4) 
s @ 197? 4 sieve pg tate ase" fen prenr ree readrfa); ! Set RFA for reading 
:; ge 1 6 4 CHSFILL(O, rfa$ ength eomodrfa); i Disable end of module 
: 257 1077 & erform(read_ old_ “record(readrfa, recdesc)); | Read and skip header 
; 258 1078 4 F Len th NEQ omh$c_size | 
: 259 1079 4 THEN RETURN Lbr$_invefa 
; 260 1080 4 
: 261 1081 5 BEGIN 
; ¢ 1088 5 
: a7 Fi : modsizwords = addrComh$l_modsiz] : VECTORC,WORDJ; 
; 265 1085 5 CHSMOVE (r fa$c_length, sretrfa, eomodrfa 
; 266 1086 5 incr rfa(.modsSizwords(1] + rods} ruordetO2*3x" 10000°, eomodrfa); 
; 67 1087 5 END 
; 268 1088 4 END 
3; 269 1089 3 ELSE 
: $i P1081 ¢ ar atta: Uhnebex bes &.bitel L Clbr$t_curidx), | 
3 perform (lookup_ke r contro r$l_curidx 
: $76 1934 4 hevless. -retrfa)); 
: ar 1093 4 
3 «64ers 1094 4 CHSMOVE (rfa$c_length, .retrfa, a ell H zat for lLbr$get_record 
: are 1095 4 he et record(readrfa, recdes i Read module header to skip i 
: er 1096 4 Length NEQ mhd$c_mhdlen+. header tha$b_ ahiuasl ! If module header not ++ ee Length 
3; 277 1097 4 OR .addr(mhd$l_refcn ' or ref count is 
; 278 1098 4 THEN RETURN Lbr$_invefa; ! then RFA. is bad 
> 279 1099 3 END; 
: 280 1100 3 contextCctx$y _lkpdon] = true; ! Indicate lookup_key done 
; 281 1101 2 ND; 
3s ¢e2 1102 2 
3 263 1103 2 RETURN true; 
3 «284 1104 2 | 
; 285 1105 1 END; 
| 
OFFC 00000 ENTRY LORS) DOK Ue KEY. Save R2,R3.R4,R5,R6,R7,R8.— ; 1019 | 
5E FF70 CE 9€ 0000 MOVAB -144(SP), SP ; | 
50 04 BC be 0000 MOVL @CTL_INDEX, RO : 1058 | 
00006 30 0000B BSBW = VALIDATE CTL : 
4C 50 €9 QOOODE BLBC STATUS, T : 
50 08 AC 00 00011 MOVL KEY_NAME, 3; 1059) 
F8 AD 60 BO BoOi8 MOV (ROY, KEY 3 
FC AD 08 AE f 0019 re KEYNAMBUF KEYDESC+4 ; 1060. 
FC 6D 046 B0 60 28 QOOIE MOVC (RO), @4(RO), A@KEYDESC+4 3 1062 | 
38 00006 CF 00 00024 MOVL LBRSGL_CONTROL, R2 > 1066 | 
5 OA Ag dO 888 9 MOVL 1 (Re). R7 : 
56 OE A2 00 00020 MOVL 14(R2), R6 : 1067 
58 0c AC 00 8 1 MOVL Met? R8 : 1074) 
4C 04 A6 93 E1 035 BBC #5, 4(R6), 2% ; 1071) 
8 DD 0003A PUSHL R8 > 1074) 
F8 AD 9F 00035C PUSHAB Mitt : 
00006 CF 08 FB 003F CALLS # LBR_OLD_LKP_KEY : 
5E D044 LBC. STATUS : 
28 AG 68 06 8 00047 MOVC3 #6, (RB), 40(R6) > 1075 
06 00 6E 0 2C 0004C MOVCS #0, (SP), #0, #6, 34(R6) ; 1076 
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207 bytes, Routine Base: $CODE$ + O03E 


; Routine Size: 


N 15 
LBR_INDEX 16-Sep-1984 01:56:1 VAX=11 Bliss=32 V4.0-74 P 
v04=000 LBRSINSERT_KEY 18230071384 93539549 DT SKSVMSMASTERSCLBR. SRCTINDEX.B32; 1 — 


; wr 1106 1 XSBTTL ‘LBRSINSERT_KEY'; 

3 SS 1100 : GLOBAL ROUTINE Lbr$Sinsert_key (ctl_index, key_name, rfa) = 

: 290 1109 1 !<-- 

s 29) 1110 1! 

; Wy : } Insert a key into the current primary index. 

> 294 1143 1 ! Inputs: 

; 295 1114 1! 

; 296 1113 3 3 ctl_index = Address of control table index. 

; oor 1339 1! key_name = Address of descriptor if ASCII keys, 

; 298 bh ae actual key if binary key. 

: +4 133 : rfa = Address of RFA to be associated with the key. 

; 301 1120 1 ! Outputs: 

: 306 1121 1! 

: 30 11 § 1! Lor$_Libnotopn = Library not open 

: 304 11 1! Lbr$_illctl = illegal control table index 

; 305 11s8 ; 7 Lor$_dupkey - duplicate key | i 

; 306 o> Be lor$_invrfa - rfa does not point at valid data 

: 307 1126 1 !ee- 

; wo 1127 1 

; 309 1128 2 BEGIN 

s 20 1162 2 

s. By 1130 2 MAP 

; sie 1131 § key_name : REF BBLOCKCdsc$c_s_bln], 

; Fis 1136 rfa: REF BBLOCK(rfa$c_lengthJ; 

3; «64314 1133 2 

3 SNS 1134 2 LOCAL 

: 316 1135 2 keydesc : BBLOCK Cdsc$c_s_bin], 

s Siz 1136 2 keynambuf : BBLOCK Clbr$c_maxkeylen], 

‘ $15 3 § cachentry : REF BBLOCK; 

; 320 1139 2 perform (validate_ctl (..ctliindex)); ! Validate control table index 

s. Sei 1140 § erform (check_lock ()); : arity ability to modify index 

; hee 1141 eydesc Cdsc$w_length] = .key_name [dsc$w_length); 

: 323 1168 keydesc Cdsc$a_pointer] = keynambuf; 

> 324 114 CHSMOVE (.key_name Cdsc$w_length], ; 

; 325 1144 -key_name Cdsc$a_pointer], .keydesc Cdsc$a_pointer]); 

; 326 1145 ¢ 

3 Ser 1146 BEGI 

: 328 1147 3 

ee 34 1148 3 index_desc = .lbr$gl_controlClbr$l_hdrptr] + Lhd$c_idxdesc 

; 330 1149 ; + (.lor$ L controls Lorsl cir idxl-1 da iddsc_tength : BBLOCK, 

3 $35 aT ; context = .lbr$gl_controlClbr$l_ctxptr] : BBLOCK; ! Context block 

3 339 1136 3 IF .context(ctx$v_oldlib) ! Cannot insert into old Library 
; $30 ite? 3 a. -context Cctx$v_ronly] ! or one that is read only 
3 336 1332 ; RETURN Lbr$_illop; 

; 338 1199 3 perform (add_key (.lbr$gl control Clor$l_curidx], keydesc, .rfa)); 

; 339 1158 perform(incr_refcnt(.rfa)J; ' Increment module refernce count 
: 340 1159 ; ! updated reference count 
: 341 1160 context(ctx$v_hdrdirty] = true; ! Flag header is dirty 
: 342 1161 § END; 

; 3435 1162 


—ZO™MOOWZSl ACK ITO ™MMOOOZS KOK ITO MM IOOWVZ™Z SE ACH LOM IOOZ Sr ACK TO MMIOOW 


ye 


CBR AND a 
LBRSINSERT_KEY 
1163 ; RETURN true; 
1164 

46 1165 END; 


56 

50 

50 

FB AD 

FC AD 

FC = BD 04 B60 
50 

52 

05 04 Ae 


50 000000006 


0000v 
00006 
04 


; Routine Size: 104 bytes, 


Routine Base: 


16 
1$-Sep=1 4 01:56:1 VAX-11 Bliss=32 V Page 11 
14- ets 93:38:16 DISKSVMSMASTER: Yea: She INDEX.B32:1 (5) 
OFFC 00000 .ENTRY LBRSINSERT_KEY, Save R2,R3,R4,R5,R6,R7,R8.- ; 1107 
R9,R10,R11 : 
FF78 CE 9€ 0000 MOVAB <-136(SP), SP : 
04 BC p 000 MOVL  a@CTL_INDEX, RO + 1139 
00 0G 0008 BSBW  VALIDBATE_CfL F 
5 52 O00E BLBC STATUS, 3$ : 
0000v 30 00017 BSBW CHECK LOCK t 1140 
50 €9 00014 BLBC STATUS, 3$ ; 
08 AC DO 00017 MOVL KEY_NAME, RO + 1141 
60 BO 0001B MOVW (ROT, KEYDESC : 
6E 4 0001F MOVAB KEYNAMBUF, KEYDESC + 1142 
60 28 00023 MOVC (RO), a4(RO), aKEYDESC +4 + 1144 
00006 CF DO 00029 MOVL §LBRS$GL_CONTROL, : 1148 
OE AO DO 000 ; MOVL _14(RO)> R2 : 1150 
05 £0 000 BBS #5, 4(R2), 18 + 1152 
C4 A2 95 00037 TSTB = 4 (R2) + 1153 
08 18 OO003A BGEQ 2$ ; 
BF DO 0003C 1$: MOVL §§ #LBRS$_ILLOP, RO + 1155 
04 00043 RET ; 
OC AC DD 00044 28: PUSHL A + 1157 
F8 AD OF 00047 PUSHAB KEYDESC ; 
12 AO DD OO04A PUSHL (RO) ; 
03 FB 0004D CALLS #3, ADD_K : 
50 €9 00052 BLBC TUS, ~3$ ; 
0c AC DD 00055 PUSHL RFA : 1158 
01 FB 00058 CALLS #1, INCR_REFCNT ; 
50 €9 0005D BLBC STATUS, 3$ ; 
08 88 00060 BISB2 #8, 4(R2> + 1160 
01 DO 00064 MOVL #1. RO + 1163 
04 00067 3$ RET + 1165 


SCODES + 9100 


i — 


i 


LBR_INDEX 1b-se 1984 01:56:1 VAX-11 Bliss-32 V4.0-74 Page 12 
Vbe=b00 LBRSREPLACE_KEY 12-808-1 382 93:38:14 TT EKSUMGHASTERS LV GR SRCTINDEX.B32:1 . (6) 
3 8 1166 1 SSBTTL ‘LBRSREPLACE_KEY’; 

: 74 11e8 ! GLOBAL ROUTINE Lbr$Sreplace_key (ctl_index, key_name, oldrfa, newrfa) = 
; ef 1169 1 a= 

; 26 1170 1! 

3 2 1171 1! Replace the RFA associated with a key with a new rfa. Update 
; é¢ 1126 ! the reference counts in both the old and new module headers 

: 356 1174 1 ! Inputs: 

3 Sor 175 1! 

; 358 1176 1! ctl_index = Address of control table index Bae 

: $28 1177 1! key_name = Address of descriptor if ASCII, key if binary 

; 360 1176 1! oldrfa = Address of old rfa 

: $0) aT 4 : newrfa = Address of new rfa 

: 368 1181 1 ! Outputs: 

3; 364 1158 2. 

; 365 1183 1! Lobr$_lLibnotopn = Library not open | 

: 366 1184 1! Lor$_illctl = illegal control table index 

; 300 Ht #4 : lor$_invrfa - invalid rfa 

: 369 1187 1 in 

; 370 1188 1 

ae 1189 BEGIN 

; 1190 

ee 4 1191 MAP 

: 374 1138 2 key_name : REF BBLOCK, 

; 375 1193 2 oldrfa : REF BBLOCK, 

; 3/8 ites § newrfa : REF BBLOCK; 

: 378 1196 2 LOCAL 

3 3f9 1197 2 keydesc : BBLOCK Cdsc$c_s_bin], 

: en Bb § keynambuf : BBLOCK Clbr$c_maxkeylen); 

; 382 1200 2 perform (validate_ctl (..ctl_index)); ! Validate control table index 
; 383 1201 2 keydesc Cdsc$w_length] = .key_name Cdsc$w_length); 

3; «384 1606 2 keydesc Cdsc$a_pointer] = keynambuf; 

; 385 1203 2 CHSMOVE (.key_name Cdsc$w_length], ? 

: $09 1sge 2 -key_name Cdsc$a_pcinter], .keydesc Cdsc$a_pointer]); 

: 388 1506 § BEGIN 

; 389 1207 3 LOCAL 

: 390 1208 vbn, 

: 392 1340 inte 

3 offset, 

: 393 1211 3 addpos, 

: 39¢ isi¢ ; entry : REF BBLOCK; 

: 396 1214 ; IND 

3 $05 i$i2 context = .lbr$gl_control Clor$l_ctxptr] : BBLOCK; 

: 399 1217 : IF .context Cctx$v_oldlib] 

3; 400 1218 OR .context Ccfx$v_ronly] 

; rt] isi) THEN RETURN Lbr$_iTlop; 

: rt 1231 ; ! First make sure its a real key. If not found, treat as an insert 


D i 
LBR_INDEX 16-Sep-1984 01: VAX-11 Bliss-32 V4.0 Page 
vite ta LBRSREPLACE_KEY 14- ae: 4 12: +3: if DISKSVMSMASTER: CLBR. Sec J INDEX B32; 1 . 
; 405 1223 IF NOT find key (. ne l — Clor$l_curidx], keydesc, 0, 
: 406 1224 bs” “fnd dex_block, offset, addpos) 
; 40 1225 THEN a ierstasiet ukey (.ctl_index, key. name, .newrfa); 
; 408 1226 ye x block + indéx$c_entriés + .off yet ! Point to entry 
: 409 1227 iF NOT cliseat "tr tage ~tength, entry Cidx$b_rfal, rfaSc length, voldrta) 
: or? } 3 THEN RETURN Lbr$_invrfa; 
; tig : ? } Decrement ref. count in old module header 
3 ret : 5 perform (decr_refcnt (.oldrfa)); 
3 rey | ’ 30 Increment ref. count in new module header 
; 418 1236 perform (incr_refcnt (.newrfa)); 
; 419 1237 i} 
: $20 1238 ! Update index entry 
: 421 1239 ! 
: re 1240 CHSMOVE (rfa$c Length, -newrfa, entry Cidx$b_rfa]); 
: 42 1241 mark dirty (.vBn); T Mark index block dirty 
; 424 1se¢ 2 END; 
3 625 1243 2 RETURN true 
: 426 1244 1 END; ! Of lbr$replace_key 
OFFC 00000 -ENTRY LBRSREPLACE_KEY, Save R2,R3,R4,R5,R6,R7,R8,-; 
SE FF68 CE 9E 00002 MOVAB -152(SP), SP : 
50 04 BC 00 00007 MOVL @CTL_INDEX, RO 3 
00006 30 00008 BSBW VALIBATE_cT : 
77 50 €9 OOO0E BLBC STATUS, F 
56 08 AC DO 00011 MOVL KEY_N 5 
F8 AD 66 BO 00015 MOVW (R6), KEY 3 
FC AD 10 AE 9€ 00019 MOVAB KEYNAMBUF, KEYDESC+4 3 
FC BD 04 B6 66 28 QOOIE MOVC3 (R6), @4(R6), AKEYDESC+4 5 
51 0000G CF DO 00024 MOVL LBRSGL_CONTROL, R1 : 
50 OE Ail 00 06029 MOVL 14(R1), RO : 
05 04 AO 05 €0 80068 BBS #5, 4(RO0), 18 3 
04 Ad 95 000 ¢ TSTB 4(RO) 3 
08 18 0003 BGEQ 2$ 3 
50 00000000G 8F 00 00037 1$: MOVL #LBRS_ILLOP, RO : 
04 ited RET 3 
5E DD OOOSF 2$: PUSHL SP 3 
08 AE 9F 00041 PUSHAB OFFSET ; 
10 AE 9F 00044 PUSHAB INDEX_BLOCK 3 
18 AE 9F 00047 PUSHAB VBN : 
7E D4 OO04A CLRL -(SP) 
F8 AD 9F O0004C PUSHAB KEYDESC : 
12 At DD OQO04F PUSHL 18(R1) ; 
O000v CF 07 Fe B2036 CALLS #7, FIND_KEY ; 
OE 50 €8 0005 LBS RO, 3$ : 
10 AC OOD Banen PUSHL NEWRFA : 
56 DD 0005D PUSHL R6 : 
04 AC DD OO05F PUSHL CTL_INDEX ; 
FF31 CF 03 FB 00062 CALLS #3, LBRSINSERT_KEY i 


1225 


L NDEX 1 
Voce =$90 LBRSREPLACE_KEY 1 
04 7 
54 08 AE 04 AE C1 09 8 3$: 
54 ¢ 50 ‘ 
oc BC 64 6 00 
8 13 B5 78 
50 000000906 8F 00 0007 
04 0007F 
OC AC DD 00080 4$: 
0000G CF 01 FB 00083 
1A 50 £9 00088 5$: 
10 AC DD 00088 
0000G CF 9! 4 pO ee 
OF 0 €9 0009 
64 10 «BC 06 28 00096 
50 OC AE DO 00098 
0000V 30 0009F 
50 01 00 O00A2 
04 OO0AS 68: 


; Routine Size: 166 bytes, Routine Base: S$CODE$ + 0175 


f-te =3e0 138s 95:881F PES UMBHASTERSCH GR  SRCSINDEX.832;1 


ADDL3 OFFSET, INDEX_BLOCK, R4 
ADDL2 #12, 

CMPC3 #6, (ENTRY), @OLDRFA 
OWL #LBRS_INVRFA, RO 


OLDRFA 
CALLS #1, DECR REFCNT 
BLBC STATUS, b$ 


NEW 
CALLS #1, INCR_REFCNT 
C STATUS, 
MOVC3 #6, Q@NEWRFA, (ENTRY) 
VBN, R 
BSBW MARK _DIRTY 
bg #1, RO 


NDEX 


LBR_ 


v04=000 LBRSDELETE_KEY é: DISKSVMSMASTER: lee” she INDEX .832;1 
; 428 1245 1 %SBTTL ‘LBRSDELETE_KEY’; 
3 ? , : : ! GLOBAL ROUTINE (brSdelete_key (ctl_index, key_name) = 
: 431 1248 1 !<<- 
: 4 ; 1249 1! : 
3 2 ? : 29 : } Delete a specified key from the current primary index. 
: $e 52g | | ineute: 
; 43 1254 1! ctllindex = Address of control table index. 
3 re : 2? : key_name = Address of string desciptor or binary key. 
: 440 1257 1! Outputs: 
: 4461 1528 1! 
: 44 1259 1! Lbr$_Libnotopn - Library not open 
> «44 1sey 1 Lor$_illctl = illegal control table index 
: re. 1$0) : Lor$_keynotfnd - key not found 
: 446 1568 a 
: 447 1264 $ BEGIN 
; 448 1265 
; 449 1266 2 MAP 
3 $29 \¢6t § key_name : REF BBLOCK; 
: 452 1269 3 LOCAL 
3 453 1270 keydesc : BBLOCK Cdsc$c_s_bdln], 
: $38 ist) 2 keynambuf : BBLOCK ClbrS$c~ ae aebielants 
: 656 159 perform (validate =ftt (..ctl_index)); ' Validate control table index 
s 437 1274 erform (check_lock ()); i pak ability to modify index 
; 458 1275 eydesc Cdsc$w_length] = .key_name Cdsc$w length]; 
; 459 1276 keydesc Cdsc$a_pointer] = keynambuf; 
; 460 1277 CHSMOVE (.key_name Cdsc$w_ length], ; 
; ret 1s78 key. name Cdsc$a_pointer], .keydesc Cdsc$a_pointer]); 
: 463 1280 2 
: ree 4 § ee TURN" true key (keydesc)); ! Delete the key 
e rue 
: 466 1283 1 END 
OFFC 00000 - ENTRY LORSOELE TE KEY Save R2,R3,R4,R5,R6,R7,R8,- 
SE FF78 CE 9E 0000 MOVAB -136(SP), SP 
50 04 BC D0 0000 MOVL CTL_INDEX, RO 
00006 30 00008 BSBW VALIDATE CTL 
26 50 5? QO00E BLBC STATUS, T$ 
0000v 30 Baer BSBW CHECK_LOCK 
20 50 €9 00014 BLBC STATUS, 1$ 
50 08 ac 00 se HE AOVL KEY_NAME, R 
F8 AD 60 B80 0001B MOVW (ers KEYDES 
FC AD 6E 43 0001F KEYNAMBUF , KEYDESC+4 
BD 04 ~=«B0 60 3 88058 MOVC (RO), @4(RO), QKEYDESC+4 
F8 AD SF 00029 PUSHAB KEYDESC 


F 16 
16-Sep-1984 01:56:12 VAX=11 Bliss. -32 V ° 
19-88-1382 9 38:1 — 


Pe See Sete Se Se Se Oe Be Be Be oe 


15 
(7) 


Page 


VAX=11 Bliss-32 vasOe iss 
DISKSVMSMASTER:CLBR.SRCJINDEX.B32;1 


A 
I 


Sep- 1984 12:30:41 


g-5e 


1 
1 


LBRSDELETE_KEY 


LBR_ INDEX 
v04=000 


56 bytes, Routine Base: S$CODE$ + 021B 


; Routine Size: 


H 16 


LBR_INDEX 16-Sep-1984 VAX-11 Bliss-32 V Page 17 
v0e=000 delete_key 14-Sep 5-1984 2 93; 35: 4 DISKSVMSMASTER: clea sre INDEX .B32;1 (8) 
: 468 1284 1 2XSBITL ‘delete 
$ $88 ! 5 ! GLOBAL ROUTINE ac fred ukey (key_name) = 
: 471 1 e} 1 le=- 
: a 1589 1 | Del key ¢ 
: elete a ke rom the current primary index 
G7 1390 1 | , <p pesee : 
; 475 1291 1 ! Inputs: 
: ti$ 1598 i k Add f i d i bi k 
3 ' ey_name = ress of string descriptor or binary ke 
S478 1994 1 i es . ° med 
; 479 1295 1 ! Outputs: 
; 480 1296 1! 
: 481 1297 1 !<=- 
: 482 1298 1 
> 483 19.44 BEGIN 
> 484 1300 
; «4485 1301 LOCAL 
; 486 1308 § localrfa : BBLOCKErfa$c_lengthj; 
3; 487 130 
: 483 1304 2 BIND 
; rt 4 1302 § context = .lbr$gl_controlClbr$l_ctxptr] : BBLOCK; 
: 491 1307 2 IF .contextC(ctx$v_oldlib] ! Cannot modify old Libraries 
: 492 1308 § Bn -context Cétx$v_ronly] i “or read only Libraries 
; 493 1309 T 
: 494 1310 2 NRETURN Lbr$_illop; 
: 495 1311 2 
> 496 P1312 2 Serretes nen par. -lbr$gl_ porte li cha _curidx], 
: rp 44 1312 § ey_name, localrfa)) 
; 343 1ei2 § perform (remove_key (.lbr$gl_control cawtk cote -key_name)); 
: 205 I3it $ perform(decr_refcnt(localrfa)); ‘Decrement reference count 
: 503 1319 2 contextCctx$v_hdrdirty] = true; 'Flag header is dirty 
> 504 1320 § 
; 505 1321 RETURN true; 
: 506 1322 2 
; jor 1323 1 END; 
0004 00000 ENTRY DELETE KEY, Save R2 : 1285 
5E 08 C2 00002 SUBL2 p~ 3 
50 0000G CF »d0 BR ORR OVL tBRSSL CONTROL, RO 3 1305 
52 OE AO 00 QO00A MOVL 14(RO)> R2 : 
05 04 A2 4 pO bor BBS #5, 4(R2), 1$ ; 1307 
04 5 0001 TSTB = &(R2) : 1308 
08 18 00016 BGEQ $ 3 
50 00000000G 8F 00 Baie 1$ MOVL #LBRS_ILLOP, RO 3: 1310 
04 O001F RET : 
5E DD 00020 2$ PUSHL SP 3 1313 
04 AC ODD 4 ¢ PUSHL TH NAME : 
12 AO OO 0 PUSHL 18(RO) Q 


LBR_ INDEX 
v04=000 


; Routine Size: 


delete_key 


85 bytes, 


Q000v ¢F 


0000v 


00006 
04 


Routine Base: 


16 
14. ~3ep-1984 01: 56: :1 VAX-11 Bliss-32 V4.0-74 Page 18 
14-Sep-1984 12:37:4 DISKSVMSMASTER: CLBR.SRCJINDEX.B32;1 (8) 
93 FB 68 8 CALLS #3 LOOKYe KEY : 
0 € 0 D BLBC STATUS, 3$ : 
04 AC DD 00 9 PUSHL KEY_NAME + 1315 
0000G CF 00 000 MOVL LBRSGL_CONTROL, RO : 
12 AO DD 00038 PUSHL : 
08 FB 00 CALLS prRenoye _KEY : 
E9 0004 BLBC , 3s” : 
SE DD 0004 PUSHL sp : 1317 
gi FB 00045 CALLS #1, DECR_REFCNT : 
0 £9 0004A BLBC STATUS, 3$ : 
08 88 0004D BISB2 #8, 4(R2) + 1319 
01 D0 90051 MOVL #1, RO + 1321 
04 00054 3$: RET : 1323 


SCODES + 0253 


EX 


L 
V 


oa 
oo 
ou 


oz 


1 1984 01:56:12 VAX=-11 Bliss-32 V4.0-74 
LBRSGET_INDEX 1 ath PS ae DLSKSVMMASTERSLLBR SRC TINDEX.B32; 1 
ZSBTTL ‘LBRSGET_INDEX'; 
GLOBAL ROUTINE LBr$get_index (ctl_index, index, user_routine, match_desc) = 


ow 
og 


a 


Call a user-supplied routine for each key in the specified 
primary index. 


i Inputs: 


' 
' 
! 
! 
' 
: ctl_index = Address of the control table index 

! index = Address of the primary index number 

: user routine = Address of user action routine | 

match_desc = Address (optional) of string descriptor for matching 
' 

' 

i] 

' 

' 

' 

1 

i] 


i Outputs: 


The action routine is called once for each key in the index. 


r$_lLibnotopn - Library not open 
tere nits tt = illegal control table index 
r$_i 


dxnum = illegal index number 


WAWIANIPIPIPIPYNINPONINYN 2 PS PO OO Ow SS OO 


WR — OC OONOA UE WD $0 ODNAUE WN $0 ODNAUE WN $0 ODNAUE WN “OO ONOUSWN-O”9D 


MAP 
match_desc : REF BBLOCK; 


LOCAL 
keydesc : BBLOCK Cdsc$c_s_bin], 
keynambuf : BBLOCK ClbrSc_maxkeylen], 
wildcard; 


BUILTIN ; 
NULLPARAMETER; ! True if argument unspecified 


perform (validate_ctl (..ctl_index)); ! Validate control table index 


BEGIN 
BIND 
header = .lbr$gl_control pterst. 
context = .lbr$gl_controlClbr$l— LOCK, | 
index_desc = .lbr ot contrat t br L_ndrptr] + Lnd$c idxdesc 
+ (.lLor$gl_controlClbr$l_ciridxJ-1)*idd$c_Tength : BBLOCK; 


IF ..index GTRU .header Clhd$b_nindex] ! If illegal index number, 
OR ..index EQL 0 


RETURN Lbr$_illidxnum; ! return with error 


wildcard = false; : 
IF NOT NULLPARAMETER(4) i 
AND .match_desc (dsc$w_length] NEQ 0 ; 

AND match desc dsc$a_pointer] NEQ 0 
{ 


PWN $0 ODNAUE WN $0 ODNOAU SW OD ONAUE WW OOONOuU 


BERR REE EE EWAWWW 


hdrptr] : BBLOCK, ! Address the library header 
Ve tr] : BBLOC 


PARP XA PMA BB BBE EE AAAI Ironorononony 


COON 


! Assume no wildcards 
If argument is present 
and non-null 


AAPA MNMNMNMNMNNIn 


THEN BEG! 
wildcard = true; 


Tr Te Ta Te TELE rELeLEreLerererereleleleeeeeeeeeeeeTeTe Tere rerererererererererereraererererererelete ye tet 
rw tet eal eles b al ah sb al ab sl al ah al ah Ab db dh ab hh db eb db dh th ah dh db eh dh ah ah al al al al adsl eal al eal al wales eal eal eal eal eal wale lealeal ea weal wa) 


ee ee ee em ee ee a a ee ee a ee ce ee el ec ee a ee ee a ee ee ed a 
WWNIWAIAIWAANAAW WWW AWWW AA AAANAA AANA WIWWNWIWIAIAN WNW WNNAI AA ANANAANNWANW 


SL FWA ANWNNANAWIAIIIPIDINPIPININININININININININ 2 2 9 9 OO PO OO SS SS OS SS 


ONS NN NNO 
SOONOUSWN— 


Then do wild card matching | 
then there is a match descriptor 


o 
w 


K 16 
LBR_ INDEX 16-Sep-1984 01:56:1 VAX-11 Bliss-32 V4.0-74 Page 20 
ybe2000 LBRSGET_INDEX 1a-8ep-19 4 93335519 DLEKSVMEMASTERSCLBR SRCTINDEX.B32:1 . (3 
; 566 1381 4 keydesc pdsc$u. lenge = ,match_desc Cdsc$w_lengthJ; 
; 367 1 5 4 keydesc [dsc$a_pointer] = keynambuf; 
$ 228 ! S7 : IF .index_desc Lidd$v_nocasecmp] 
; ore 1 $? & CHSMOVE (.match_desc CdecSu. Length]. : 
; ef) } 6 é - -match_desc Cdsc$a_pointer], .keydesc Cdsc$a_pointer]) 
; 378 1388 4 perform (make_upper_case (.match_desc, keydesc, true)); 
HBG ee 
> 576 1391 context Cctx$v_found!) = false; 'Flag no matches found 
;. or 1 3 : IF_.context(ctx$v_oldlib] | : ! If old format Library 
; of P 139 THEN perform (lbr_old_get_idx (..index, .user_routine, (IF .wiidcard 
; Sr P 1394 3 THEN .match_desc 
; 580 1395 4 ELSE 0))) 
3; 28! 1396 4 . 
: 266 P iar 3 ELSE perform (traverse_keys (..index, (IF .wildcard ! Traverse the index 
; P 1398 3 THEN check_wild : looking for matches | 
> 584 P 1399 3 ELSE call_user), .user_routine, ! or just calling user 
3; 385 P 1400 3 (IF .wildcar 
; 586 P1401 3 THEN .match_desc 
3; Ser 1402 3 ELSE 0))); 
; 588 1405 3 IF NOT .context Cctx$v_found1] !If no matches found 
> 589 1404 4 THEN RETURN (IF .wildcard 
> 390 1405 4 THEN Lbr$_nomtchfou 
; 591 1406 4 ELSE Lbr$_nulidx 
,; 3 1407 4 ) 
; 593 1408 3 ELSE RETURN true; 
> 594 1409 3 
; 595 1410 2 END; 
; 596 1411 2 
; oer 1412 1 END; ‘Of Lbr$get_index 
OFFC 00000 «ENTRY LORSOET (HOEK. Save R2,R3,R4,R5,R6,R7,R8,- ; 1325 
5E FF78 CE 9E 0000 MOVAB -136(SP), S ; 
50 04 BC 06 0000 MOVL  a@CTL_INDEX, RO : 1361 
00006 30 00008 BSBW = VALIBATE_CTL 3 
70 50 £9 4 BLBC STATUS, 4$ : 
23 0000G CF be Bi MOVL LORSSL CONTROL. RO ; 1365 
5 OA AO DO 00016 MOVL (RO), R2 : 
56 0 AO DO OOO1A MOVL 14(RO), R6 : 1366 
51 1 AO b0 001 MOVL 18(RO), R1 ; 1368 
51 0A B041 7E 000 MOVAQ a@l0(ROSCR1), R1 ; 
51 o0BC C1 9E 000 OVAB 188(R1), Ri 3 
08 BC 01 A2 08 00 FD $3 § CMPZ7V «#0, #8, 1(R2), @INDEX ; 1370 
05 iF BLSSU _'1$ ; 
08 BC 05 00035 TSTL @INDEX ; 1371 
sy 1 ; 8 BNEQ 2s 3 
50 00000000G 8F yi 0 Ozt 1$: peye #LBRS_ILLIDXNUM, RO 3; 1373 
57 p* aod? 23: CLRL WILDCARD : 1375 
04 6C 91 00044 CMPB (AP), #4 : 1376 


LBR_INDEX 
v04=000 LBRSGET_INDEX 


08 
FC = BD 


17 


13 


; Routine Size: 234 bytes, 


Routine Base: 


10 
10 
50 10 
04 
57 
50 10 
AD 
AD 
61 
BO 
51 F8 
52 
65 
A6 40 
A6 
05 
10 
0c 
08 
CF 
05 
10 
oc 
07 
50 0000V 
50 0000Vv 
08 
CF 
1B 
A6é 


50 
50 000000006 
50 000000006 
50 
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SCODES + 02A8 


Py oe Wb nGhaSfen cl Ba sac Sinpex.832:1 


5$ 
16(AP) 


@MATCH_DESC 


5$ 
ite DESC, RO 


YDESC+4 
» @KEYDESC+4 
KEYDESC, R1 
MAKE UPPER CASE 
ATOS, 168 
e 
MATCH 
a 
= (SP) 
ain ROUTINE 
LBR_OLD_GET_IDX 
WILDCARD, 9$ 
MATCH DESC 
4 
USER, ROUTINE 
WILDCARD, 11$ 
CHECK. WILD, RO 
cOLe USER. RO 


ILD 
WLERS. ANOMT CHF OU, RO 
#LBRS$_NULIDX, RO 
#1, RO 


Be Se Se Se Be Be Se Be Se Se Se Se Se Se Se Se Se Se Se Fe Se Fe Se Se Be Fe Se 


Pete Se Se Ge Se Se Be Be Be Se 


M 16 
16-Sep-1984 01:56:1 VAX=11 Bliss-32 V Page 22 
LBRSSEARCH 14-Se oP 1984 05:35:18 DISK SVMSMASTER: ler” cae INDEX.832;1 . 8s 
; 1413 1 XSBITL ‘LBRSSEARCH 
; Veie ! GLOBAL ROUTINE ye (ctl index, index, rfa, user_routine) = 
: 1416 1 !-=- 
; 1417 1! 
: 1418 1! Search a {Speci tied or smery index for all keys associated 
: 1419 1! with a given R user supplied action routine will 
3 1? ? : be called for ome key associated with the RFA, 
: 14 1 ! Inputs: 
3 14 : 1! 
: 1424 1! ctl_index = Address of the control table index 
: 1425 1! index = Address of the primary index number 
: 1426 1! rfa = Address of the RFA to be searched for 
3 1056 : user_routine = Address of user supplied os tion routine. 
5 1963 1 ! Outputs: 
3 14350 1! 
: 13) : The action routine will be called for each key found. 
; 1433 1 !<-- 
: 1434 1 
: 1435 § BEGIN 
$ 1436 
3 1437 § M 
3 1o38 § rfa: REF BBLOCK; ' Access as RFA structure 
3 1440 2 ROUTINE check_rfa (entry, user_routine, index_desc, test_rfa) = 
j 2 1441 3 BEGIN 
3 1442 3 MAP 
; 629 1443 3 test_rfa : REF ea length], 
; 630 1444 3 index_desc: REF BBLOCK 
3 65) 1445 3 entry: REF BBLOCK; 
3; 632 1446 3 IF .entry Cidx$l “bal. EQL .test_rfa Crfa$l_vb 
; 633 1447 3 AND .entry Cidx$w offset) EGL .test_rfa Pr tasw. offset] 
>; 634 1448 3 THEN 
; 635 1449 3 Ercere. (call_user (.entry, .user_routine, .index_desc)); 
; 636 1450 3 RETURN true; 
3; 637 1451 2 END; 
0000 00000 CHECK_RFA: ; 
-WORD Save nothing : 1440 
50 04 AC dO 00002 MOVL ENTRY, 3: 1446 
51 10 AC 00 00006 MOVL TEST_RFA, R1 : 
61 60 D1 OO00A CMPL = (RO)7 (RI) : 
15 ie 00 BNEQ 1$ 3 
04 «Al 04 AO B61 QOO0F CMPW 4(RO), 4¢R1) : 1447 
OE 12 00014 BNEQ 1$ : 
7E 08 AC 7D 00016 MOVQ USER_ROUTINE, -(SP) 3: 1449 
50 DD 8 1A PUSHL R : 
0000V CF 03 FB 1C CALLS #3, CALL_USER : 
03 50 £9 00 4 BLBC STATUS, 2$ : 
0 01 DO 00024 1$ MOVL #1, RO : 1450 


1Besdo-19 


ee _ ee sosene -4 


LBR_ INDEX 4 01:56:1 VAX-11 Bliss-32 V4.0-74 Page 23 
voce LBRSSEARCH 22868-1380 93335:19 DLeKSVMGMASTERSLLBR. SRCSINDEX.B32; 1 ab 
04 00027 2$: RET ; 1451) 
3 Routine Size: 40 bytes, Routine Base: S$CODES + 0392 
; 638 145 
: 635 1488 | 
13 on tr: perform (validate_ctl (..ctl_index)); ! Validate control table index | 
(3 «664 1456 BEGIN 
13 64 1457 BIN | 
13 6446 1458 context = peocoet controt Clor$l_ctxptr] : BBLOCK, ! Address the context block 
13 oF ed header = .lbr$gl_Control Clobr$l_fdrptr] : BBLOCK; ! Address the Library header 
; 647 1461 IF ..index GTRU .header Clhd$b_nindex] ! If illegal index number, 
> 648 1008 OR ..index EQL 0 
; 649 146 THEN 
i 630 1464 RETURN Lbr$_illidxnum; ! return with error 
3; 63 1466 IF .context(ctx$v_oldlib] ! If old format Library 
3 $3? ret H THEN RETURN Lbr_old_src_idx (..index, .rfa, .user_routine); 
; 655 1469 3 erro (traverse_keys (..index, check_rfa, .user_routine, .rfa)); 
; 656 1470 § ND; | 
: 657 1471 | 
; 658 1676 2 RETURN true; 
(3 660 1474 1 END; | 
OFFC 00000 ENTRY LORsSEAACH Save R2,R3,R4,R5,R6,R7,R8,R9,- |; 1414 
50 04 BC DO 00002 MOVL @CTL_INDEX, RO 3 1454 
00006 30 00006 BSBW =-: VALIBATE_CTL ; 
48 50 €9 00009 BLBC STATUS, 4&$ 3 
50 0000G CF 00 0000C MOVL LBRSGL_CONTROL, RO : 1458 
50 OA AO 7D pet MOVQ 10(RO), RO 3 1459) 
08 8 01 A0d 08 00 €D 00015 CMPZV) «#0, #8, 1(RO), @INDEX : 1461 
05 1F OO00IC BLSSU _1$ : 
08 BC D5 OOOIE TSTL @INDEX : 1462 
ge is B88 1 BNEQ 2$ 3 
| 50 000000006 8F pO 900 3 1$: MOVL #LBRS_ILLIDXNUM, RO > 1464 
OD 04 «AI 05 A 00028 2$: BBC #5, 4(R1), 3% : 1466 
7E Oc AC 7D 00 0 mova FA, -(SP5 3 1467 | 
08 BC DD 00034 PUSHL at : 
00006 CF FB 00037 CALLS #3, LBR_OLD_SRC_IDX ; 
04 0003C RET : | 
OC AC DD 0005D 3$: PUSHL RFA > 1469 | 
1 AC 0D Bpey PUSHL USER ROUTINE 3 
9 AF 9F 0004 PUSHAB CHECR_RFA 3 
0 C OD OR48 PUSHL a@INDEX : 
0000v CF 4 FB Oudé CALLS #4, TRAVERSE_KEYS ; 
| 03 0 €9 0004E BLBC = STATUS, 4$ : 


. =h0o LBRSSEARCH 1$-sen-1984 93:38: " PT EKSUMEMASTERSCLGR SRCSINDEX.832;1 -°9° «183 
50 01 po 09051 MOVL #1, RO 1472 
04 00054 4$ RET : 147% 


3 Routine Size: 85 bytes, Routine Base: S$CODE$ + 03BA 


nn 


dD 1 | 
—LBR_INDEX 16-Sep-1984 01:56:1 VAX-11 Ot ise. -32 V Page 25. 
‘NOazd00 check _wild 132808138 95:35) DISKSVMSMASTER: cen she INDEX.832;1 . ap 
1 ZSBITL ‘check wild’; 

4d check “aild (entry, user_routine, index_desc, match_desc) = 


| 
; 
| 
| 


Called by traverse for each entry in the index. Check t 
see if current entry matches the match_desc. Call user "et so. 


i Inputs: 


entry = Address of key entry 
user_ routine = Address of user action routine 


' 

i 

' 

i 

! 

' 

! 

' 

' index_desc = Address of index descriptor for index 
match_desc = string descriptor for match string 
! 

4 


2 MAP 
§ entry : REF BBLOCK 
index_desc : REF BBLOCK, 
2 match_desc : REF BBLOCK; 
é LOCAL 
2 entrykey : BBLOCK Clbr$c_maxkeylen); 
IF .index_desc Cidd$v_upcasntry] 
THEN 
3 
3 
2 
4 
4 
4 
4 
4 
3 
2 
2 
1 


BEGIN 
moveto_upper_case (.entry Cidx$b_keylen], entry Cidx$t_keyname], entrykey) 


ELSE 
CHSMOVE (.entry Cidx$b_keylen], entry Cidx$t_keyname], entrykey); 


IF (NOT .index_desc Cidd$v_ascii] ! If not ASCII keys 
OR (fmg$match_name (.entry Dg _keylent, ientrykey, 
meses desc Cdsc$w_length] 
tch_desc Cdsc$a_ ointerd) 

OR CHSEQL (.match yy Cdsc$w_lengthJ, entrykey, 

smatch_desc Cdsc$w_length 

-match_desc Cdsc$a “pointer4))) 
THEN perform (call_user (.éntry, .user_routine, .index adesc, -match_desc)); 
RETURN true 
END; 'Of check_wild 


o 
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: Save R2,R3,R4,R5,R6,R7,RB,RI,RI0,R11 : 1476 
SE 80 AE i 20988 MOVAB -128(SP5, SP F 
50 04 0006 MOVL ENTRY, RO > 1500 
57 04 O00, MOVL ENTRY, R7 : 

10 oc BC 0s e! 0005 BBC #5, @INDEX_DESC, 1$ : 1497 
52 6€ 9E 0001 MOVAB ENTRYKE Y, R2 > 1500 
51 07 AO 9E 00016 MOVAB 7(RO), RI ; 

50 06 =A 2, OTA MOVZBL 6(R7). RO : 
00006 30 OO01E BSBW  MOVETO_UPPER_CASE : 

09 11 021 BRB 2$ > 1499 

51 06 A? 9A 00023 18: MOVZBL 6(R7), R > 1503 
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Routine Base: SCODES + O40F 


.outine Size: 


vr-——__—_—_—_—-- —————— a 


$ 


desc Cdsc$w length] = .entry biaxsb- keylen] 
desc Cdsc$a_pointer] = entry Cidx$t_keyname 
posters ((.User_routine) (desc, entry idx$l- *vbnJ)); ' Call user back 


~“ 
, 


ELS 
perform ((.user_routine) (entry Cidx$l_keyid], entry Cidx$l_vbriJ)); 


RETURN true; 
END; 


0000 00000 CALL USER: 


1 
LBR_ INDEX 16-Sep-1984 VAX=11 s-32 V Page 27 LBI 
‘yo4=000 call_user 16> Sep-1984 93: 35: 4 DISKSV Men TER: lak” she INDEX.B32;1 (135 vO: 
703 1515 1 ZSBTTL ‘call_user'; ; 
pee : i$ : ROUTINE call_user (entry, user_routine, index_desc, rfa) = | ; 
i; ft 1818 1 t==- ; 
E408 1819 1 i | ; 
708 1520 1! This routine is used as an action routine by GET_INDEX ; 
709 ta) 2S and SEARCH to call the user with a standard argument ° 
71 15 ¢ 1! List for a given key entry. : 
71 15 1! : 
71 15246 1 ! Inputs: : 
71 1325 1! 3 
71 15826 1! entry = Address of key entry ; 
71 1$e7 1! user_routine = Address of user action routine ‘ 
71 1528 1! index = Primary index number ; 
71 1829 1! : 
71 1530 1 ! Outputs: ; 
4) 12 : i Th ine i Lled with the followi 
7 § e user routine is called with the following ar “asc : 
72 1533 1! 1) If ascii keys, address of key ae tae : 
72 1534 1! If binary norte address of longword ; 
7 1535 1! 2) Address of RFA associated with the hey . 
72 1536 1 Se-- ; 
7 1537 1 3 
7 1538 2 BEGIN : 
7 1539 § 3 
72 1540 P 3 
7 1541 2 index_desc: REF BBLOCK, ! Address of index descriptor : 
73 1542 2 entry: REF BBLOCK; i address of key entry : 
73 1543 2 ; 
73 1544 2 BIND ; 
Ay 134? § context = .lbr$gl_control Clbr$l_ctxptr] : BBLOCK; : 
735 1547 2 context (Cctx$v_found1] = true ! Flag match found : 
736 1548 2 IF .index_desc Cidd$v_ sectil ! If ASCII keys, : 
737 1549 ¢ THEN : 
738 1550 BEGIN ‘ 
739 1551 3 LOCAL desc: BBLOCK Cdsc$c_s_bin];  ! String descriptor : 
740 1552 3 ; 
1 1553 ; : 
2 1554 ’ 
1555 3 : 
1556 § : 
1557 ; 
1558 § ‘ 
1559 : 
1560 2 ‘ 
1561 1 : 
ore Save nothing ; 1516 : 
43 Cx 008 suBL 3 : 
5 00006 ? D $0 MOVL BRSGL CONTROL, RO ; 1545 : 
50 QE AO DO OOO0A MOVL 4(RO), RO 3 : 
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RO 


ATUS, 


Wn MuiNcDOOoomMr <a 
— AMMA 


COOCOCCOOOCOOOOoooO 
WOO O-- Our OuDoovr 


DOW VOSO— Ou WOO 
wYVVOR- VWOVONO-— 
oat mctodctcacodc como 
owueno ra vO 
TOoOOQOOoO CO CO 
OoOoNwY VLemMo 
qn--oOoct oon 
wT w a 
Oo oO oO 

w 

a 

w 

oO 


| 
| 
| 
| 


Routine Base: S$CODE$S + 0472 


62 bytes, 


; Routine Size: 


r——-_ ------ - a = — 


>. 
H 1 | 
—LBR_INDEX 16-Sep-1984 01:56:1 VAX-11 Bliss-32 V4.0-74 Page 29 
04> add_key 10=860-1 984 ee DI SKSVMSMASTER:CLBA. SRCSINDEX 83251 948) 
3 73) 1368 1 XSBITL ‘add key’; | 
ls § : o7 : GLOBAL ROUTINE add_key (index, key_desc, key_rfa, stop_vbn) = 
: 784 1385 1: 
: 755 1 66 1! This routine adds a key te a s ecified index. If the index 
3 756 1967 1! block is full, the block is split and a parent index block 
; Pee : OB : is created and is made to point to the 2 split index blocks. | 
: 759 1876 | i Inputs: | 
; 760 1571 1! 
: 761 1226 1! index = Primary index number in which key is to be added. 
: 166 1375 1! key_desc = Descriptor of key (ascii or binary) to be added. 
; 76 1574 1! key_rfa = RFA to be associated with key. 
3; 764 1575 1! stop_vbn = (Optional) The VBN of an index block in the 
; 765 1308 1! index tree into which the key should be added. 
: 766 1877 1! If not specified, key added at bottom of tree. 
: 767 1578 1! 
; 768 1579 1 ! Outputs: 
: 769 1580 1! ; ‘ 
; 770 1581 1! Routine value = Success/failure status code 
: 771 1386 1! 
Te os 1583 1 !<-- 
cir 1584 BEGIN 
: 776 1585 
: 775 1586 MAP 
3s 7 1587 key_desc: REF BBLOCK, ! Access as arcing descriptor 
3 @77 1588 § key_rfa: REF BBLOCK; ! Access as RFA structure 
: 778 1589 
; 779 1590 2 LOCAL 
; 780 1591 § status, 
3s Tel 1238 index_desc: REF BBLOCK, ! Index descriptor 
: 782 1593 2 entry_size, ' Size of each index entry 
: 783 1594 2 index_block1: REF BBLOCK, ! Address of index block 
: 786 1595 2 vbni, ' VBN of current index block 
; 785 1596 2 genpos, ! Offset to closest entry 
: 786 1597 2 addpos; ! Offset where to add key 
3; 787 1598 2 
: 788 1599 3 BUILTIN ; 
; as 1909 NULLPARAME TER; ! True if argument unspecified 
: 791 1602 MACRO 
; #79 m 1603 entry (address,b) = 
; M 1604 (address+index$c_entries+b) 
3 oe 1623 ; ZIF ZLENGTH GTR 2 XTHEN <ZREMAINING> ZELSE <0,0,0> %FI2; | 
; 796 1607 index_desc = othr Sgt control Clor$l_hdrptr) + Lhd$c_idxdesc 
; a4 1608 es + U.index-1)*idd$c_Tength; | 
3 44 1019 1 Use false option to check keyword and remove trailing blanks 
: if 1ol¢ perform (make_upper_case (.key_desc, .key_desc, false)); | 
3 ar 1918 : Check for illegal key length if ASCII keys 
: 508 1616 If .index_desc Cidd$v_ascii] 
; 806 1617 THEN > : 
; 807 1618 4 IF ((.key_desc Cdsc$w_length] GTR .index_desc Cidd$w_keylen]) ! If name too long | 
j 


——_—_—_—__—_——-————_ 


1 
| LBR_INDEX 1b-se -1984 01:56:1 VAX=11 Bliss-32_V4.0-74 Page 30 
iOe2000 add_key 1 ~3e71 8% 03:35:18 DISKSVMSMASTER: CLBR.SRCJINDEX.B832;1 ’ 133 
; 808 1619 OR (.key_desc Cdsc$w_length] EQL 0)) ! or zero length 
(B09 1620 THEN oe _ . ot ee 
3 19 1 1 ; RETURN Lbr$_invkey; ! Then return with an error 
3 Big Mb § ; If no primary index block exists yet, create the block. 
1; B14 1625 2 IF .index_desc Cidd$l_vbn] EQL 0 ! If no primary index block yet, 
: B15 1696 S THEN. . Se a a ae, 
> 816 1627 BEGIN 
3 Bir 1628 perform(create peeetre’s index_block1)); ! Create index block 
; 818 1629 index_desc 199s vpn = .vbn1; ' Set as root of tree 
; 819 1630 index_block! Cindex$l_parent] = 0; ! Set backward Link 
> 820 1631 END; 
; 821 16 § : 
; & ¢ 16 ! Find the key in the index tree. 
:. = 1634 ! 
; 824 1635 status = find_key(.index, .key_desc 
; Bes 16 6 (IF NOT NULLPARAMETER(%) THEN stop_vbn ELSE 0), 
: 558 163% , vbni, index_block1, genpos, addpos); 
: 828 1639 i If key found, return duplicate key 
; 829 1640 
; 830 1641 IF .status ! If found, 
3 83) 1648 THEN 
3 He bat ; RETURN Lbr$_dupkey; ! Return duplicate key 
5 834 1645 i If the current block is full, split the index block into 
; tH Mb J 2 2 blocks and create a parent index block if necessary. 
: 837 1648 : if .index_desc Cidd$v_varlenidx] 
; 838 1649 2 THEN é 
: 839 1650 § entry _size = idx$c_rfaplsbyt + .key_desclCdsc$w_length] 
: 840 1651 ELSE 
: rh 1936 § entry_size = idx$c_length + .index_desc Cidd$w_keylen]; 
: Be 1654 2 IF .index_block! Cindex$w_used] + .entry_size GTRU index$c_blksiz 
> 844 1655 ¢ THEN 
; 6845 1656 BEGIN 
; 846 1657 ; LOCAL 
; 847 1658 cur_entry : REF BBLOCK, ! step through index entry at a time 
; 848 1659 3 last_entry, : 
; 849 1660 3 last_used, ! Location of last used byte in index block 
3 320 16) 3 move, Length. ! Length of half the bloc 
3 cr. 
; 832 1808 Gndex_block2: REF BBLOCK, ! Address of second block 
; 8 1664 vbng. ' VBN of second block 
3 te 199? rfa2: BBLOCK(rfa$c_length); ! RFA used by add_key 
; B56 166? 
: 358 1008 : Create second index and copy about a quarter of the entries into it. 
: 859 1670 
: 300 197) perform(create_index(vbn2, index_block?)); ! Allocate index block 
; re: 1898 IF_.index_desc Cidd$v_varlenidx] 
: 86 1°74 THEN !variable length keyword storage 
; 864 1475 4 BEGIN 


UY - -—_- --- 
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| LBR_INDEX 18 -Sep-1984 X-11 Bliss-32 Vv 1 
¥042000 add_key “520-194 9}: 35: if be aKSVMGM STER ‘clea: OS RC TINDEX. B32;1 Page 43) 


13 £6? 1676 4 cur_entry = .index_block! + index$c_entries; ; 
$ 508 19 : cast. used = .index-block! + index$c_entries + .index_block1 Cindex$w_used]; ‘ 
; 868 1879 BEGIN F 
: 893 168) no snery_ie ! Length of variable ind in index block 
: entry_len; ength of variable index entry in index bloc ; 
; 871 1086 é last wentry = .cur_ ry: . 4 ; 
: ere 168 entry_len = idx$c_ “rte sbyt + .cur ane, keylen]; > 
; of? 1088 5 cur_entry = .cur_entry + .entry_len : 
s 873 1686 : UNTIL (.cur_entry + Lbr$c_maxkeylen ; 
; 876 168" 4 TR (.index_block1 + ri |b ublksiz ); ; 
; 87 1686 4 move_length = .last_Used - .last_entry; ; 
; 878 1689 4 3 
; 879 1690 4 3 
; 880 1691 4 index_block! Cindex$w_used] = ; 
; #881 1936 4 Index block] Lindex$w used] - “nove Length; : 
: 88 1693 4 index _block2 Pindexsa. used] = “move. h; : 
3; 88 1694 4 CHSMOVE (.move acenet Spy al? the block ; 
> 884 1695 4 entry(. index_block1+. _— ‘theak nse my used],0), ; 
; HH 1698 ? entry(. index_block2,0)) : 
; 887 1698 4 date ehatinadibl Meelis Medion. teehee, tudes haat ! Reset highest key ; 
> 888 1699 4 END 3 
; 889 1700 3 ELSE ! fixed Length keyword storage : 
; 890 1701 4 BEGIN F 
; 891 1706 4 ! 3 
3 +4 EAE, ? } Move the Last fourth of the entries : 
; 894 1705 5§ move_length = (.index_block! Cindex$w_used] / .entry_size / 4) ! e#* : 
; 895 1706 4 * .entry_size; , 
; 896 1707 4 ! 3 
; 897 1708 4 ! If the keyword size is so large that fewer than four keywords fit : 
: 3 1 : in an index block, then only move out 1 entry. : 
; 900 1711 4 IF .move_length EQL 0 THEN move_length = .entry_size; : 
: 901 1712 4 index_block1 a tngerte used] = : 
: 306 1713 4 ndex_block! Cindex$w used] = .move length; : 
: 90 1714 4 index block2 Pindexse used] = -Bove..leng h; : 
: 904 1715 4 HSMOVE ( move acenptn opy /4’of the block : 
: 905 1716 4 entry(. index locki+, spine block! Cindex$w_used],0), : 
; o08 At ° entry(.index_block2,0 : 
: 208 1719 4 LCL ARIES 4 RPS ! Reset highest key ° 
Bee ee, ; 
: ay Has IF .index_block1 Cindex$l_parent] EQL 0 ! If at top of tree already, : 
: 318 1753 4 BEGIN > 
7 916 1725 4 ' : : 
; 915 17 $ 4 ' Create a parent block for the 2 index blocks. : 
: 916 17 4 ! : 
3; «917 1728 4 LOCAL : 
; 918 1729 4 index_blockO: REF BBLOCK, ! Address of parent block 
; ah if 9 ? vbn0; i VBN of parent block 
3. 9a 1732 4 perform(create_index(vbn0, index_block0O)); ! Create parent 


BEGIN 
LOCAL block: REF BBLOCK; 
per tora; tind index(.ptr Cidx$l_vbn], block)); 
lock Cindex$l_parent) = “ubne; ' Reset parent block 
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i] 733 
9 : 734 index_blockO Cindex$l_parent) = ho eal Cindex$l_parent]; 
924 735 index block! indexSl parent = ,vbn0; 
? f $ A eng espe: index$l_parenti EQL 0 ! If root of tree 
f 4 8 index_desc Cidd$l_vbn] = .vbn0; ! Reset root pointer 
929 740 IF _ .index_desc Cidd$v_varlenidx] 
930 741 THEN 
44 rs perform( add_index2(.index, .vbni, .index_block1) ) 
9 : 744 perform( add_index(.index, .vbn1, .index_block1) ); 
934 OF ! Add highest key to parent 
g 5 m8 END; 
a4 re index_block2 Cindex$l_parent] = .index_block! Cindex$l_parent); 
939 759 IF .index_desc Cidd$v_varlenidx] 
940 751 THEN 
941 36 BEGIN 
4 ay per form( add_index2(.index, .vbn2, .index_block2) );! Add key to parent 
944 755 i If any of the entries which were moved into the second 
945 756 ' block pointed to sub-indices, reset the parent backpointer s | 
ose Leys in that sub-index to point to the second block (vbn2). 
948 759 ptr = .index_block2 + index$c_entries; 
949 760 ast_used = .index_block2+ index$c_entries +.index_block2Lindex$w_used); 
761 WHILE ptr LSS .laSt_used DO 
951 166 BEGIN 
95 76 
95 764 ptr: REF BBLOCK; ! Address index entry 
954 765 IF .ptr Cidx$w_offset] EQL rfa$c_index ! If points to index, 
766 THEN 
767 
768 
769 
770 
ae 
748 
774 
He 
5S 
77 
77 
78 
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% 
oe mark_dirty(.ptr Cidx$l_vba ! Mark block dirty 
96 tr = .ptr + idx$c_rfaplsbyt + .ptrlidx$b_keylend; 
368 END: 
964 END 
965 ELSE 
966 BEGIN 
bs t4 3 per form( add_index(.index, .vbn2, .index_block2) );! Add key to parent 
969 0 : If any of the entries which were moved intc the second 
970 781 : block pointed to sub-indices, reset the parent backpointer 
4a A ; in that sub-index to point to the second block (vbnd). 
97 784 INCRU ptr FROM .index_block2+index$c_entries 
974 785 TO .index_block2+index$c_entries?.index_block2 Cindex$w_used]-1 
975 7 6 BY .entry_size 
976 7 50 
977 hs: BEGIN 
978 789 MAP | 
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: 979 1790 ptr: REF BBLO ! Address index entry ‘ 
; 980 1791 IF .ptr Cidx$w ot isetd EQL rfa$c_index ! If points to index, ; 
; 981 1736 THEN ; 
; + 1795 6 BEGIN ; 
; 98 1794 6 LOCAL block: REF BBLO : 
> «984 1795 6 ertorn( tind, preest « no ; ‘tidxst =von}. block)); : 
'; 985 1738 6 index$l becents ® “¥ bn2; | Reset parent block ‘ 
; 986 1797 6 park dirty(.ptr Cidx$l_vbnJ); ! Mark block dirty 
: 987 1798 5 END;~ : 
; 988 1799 4 END; : 
; 989 1800 END; ’ 
; 990 190) ' : 
: 991 1 4 ! If the add position was tn the second half of the : 
3 936 180 : that. +e —— reset index block! and vbni so ° 
; 99 1804 ' at the followi ng code adds fhe key to the second : 
> 994 1805 ; block. In addition, if we are adding a subindex ney. ‘ 
; 995 1806 : then adjust the pcos block of that subindex to point : 
; 996 1807 4 to this newly split second block rather than the original ‘ 
; pad 1008 first block. Adjust the add offset for the second block. : 
; 999 1810 : IF .addpos GTRU .index block! Cindex$w_used] ! If in 2nd half, ‘ 
; 1000 1811 3 THEN : 
: 1001 1si¢ 4 BEGIN : 
: Ione 1815 4 If _.key_rfa C(rfaSw_offset] EQL rfa$c_index ! If index pointer, ; 
; 100 1814 4 THEN : 
: 1004 1815 5 BEGIN : 
; 1005 1816 5 LOCAL block: REF BBLOCK; ‘ 
: 1006 1817 5 erform(find_index(. key. rfa Crfa$l -vbnJ, block)); : 
; 1007 1818 5 lock Cindex$l_parent) = .vbne; | Reset parent block : 
; 1008 1819 5 mark dirty(.key_rfa Crtasi vvbnd); ! Mark block modified : 
|; 1009 1820 4 END; : 
; 1010 1821 4 ; 
3; 1011 18s¢ 4 mark_dirty(.vbn1); 4 oe block 1 modified now ‘ 
: 1012 18235 4 e 2 will _be marked below : 
3 1013 1824 4 addpos = .addpos - .index_block! teenage used]; ! Adjust offset > 
: 1014 1825 4 index_block! = .index_block2; ! Add key~to second block : 
; 1015 1826 4 vbni = .vbn2; ‘ 
3; 1016 1827 3 : ‘ 
3; 1017 1828 3 : 
; 1018 Ht § END; : 
3; 1019 1830 ! : 
3; 1020 1831 2! Make room for new qntry by pushing all ; 
5 Ht 1336 2 ; the following entries in use down one. : 
: 1958 1834 CHSMOVE (. yngex block! Cindex$w_used] - .addpos, . 
3: 1024 1835 onery - index =ptock1*.addpos . : 
3; 1025 1836 ntry(. index block! + agdposs -entry size, 0») 2 X : 
: 434 tT index _block1 Cindex$w_used index_blocki Cindex$w_usedJ+.entry_size; ; 
5 1098 1839 7 Add the key to the index : 
: 198 1863 entry(. index_block1+.addpos,idx$l_vbn) = key rfa Crfa$l_vbn); 3 
: 103) ihe entry(.index_block1+.addpos,idx$w_offset) = .Key_rfa cr fasw _offset); : 
: 1038 its If .index_desc Cidd$v_ascii] ! If ASCII keys, 

3; 1035 1846 BEGIN 
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' 
i If keywords in this index are to be upper cased for 
entry then upcase. 


if NOT .index_desc Cidd$v _nocasentr] 
THEN perform Tmake_upper_Case (.key_desc, ekey_desc, true)); 


CHSMOVE ( .key_ desc dscSy., length], ! Copy ASCII key 
-key_desc Cdsc$a_pointer 
entry(. index splot \+.addpos idx$t ee aa 
entry(. index 2? igtk Is -gadpos sie dx$b_keyT 
key. desc Cdsc$w Lengthi; 
ELS ' if binary keys, 
“entry(, index -olock1+.addpos, idx$l _keyid) = 
.-key_desc; 
7 Mark index block modified to be written back later. 
mark. dirty(.vbn1); ! Mark index block modified 
; Reset highest keys in parent index blocks. 
3 if .addpos+.entry_size EQL .index_block1 Cindex$w_used] 
“IE gtnden., descCidd$v_varlenidx] ! If index block has variable Length keys 
perform( reset_highest2 (.index, .index_desc, .vbn1, .index_block1)) 
§ perform( reset_highest (.index_desc, .vbni, .index_block1) ); 
: 
; 
4 
4 
4 
4 
4 
4 
; 


' 
Unless the entry points to an index, update the index entry total 
BEGIN 


BIND 
header = .lbr$gl_controlClbr$l_hdrptr]) : BBLOCK; 


me key rfalrfaSw_offset] NEQ rfa$c_index 


header(lhd$l_idxcnt] = .header(Clhd$l_idxcnt] + 1; 


IF .index EQL ! If index 1 
THEN neoderCthdst -modcnt) = wheader(lhd$l_modcnt) + 1; 


END 
ELSE header Clhd$l_idxovh] = .header Clhd$l_idxovh] + 1; ! Count overhead block 


RETURN true; 
END; 
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68 19D PUSHR ; 
4F 0088 i OD aOtat ste a ADD _INDEX2 tess 
it x) AP SRM BLBES STAN gt a 
56 ec ante ae BOtAe MOVAB’ 12(RODER7I, _LAST_USED : 1761 
04 AE 5 ay pores CHPY ACPTRD, #65535 ‘hen 
teh laa O48 92 dores ae i 
001C6 MOVAB BL i ; 
2 ” 85 00 001CA MOVL FIND” ENDEX 
“i at i 00100 228: BL BE STATUS. 218 ica 
gf 8 AE 0 OOIDS MOVE R30 ERO) : 1771 
4 28 8S 0 oot? MOVE RB. {RO) ; 
we Bey 8S holbe BSBW MARK BikTy ; 1773 
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07 A04 BRB 21S : 
~ ae BBB as: Ble dbase : 
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” 0000v 80 0228 tt ENTRY SIZE, PTR : 
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v04=000 add_key 1o-8e0-13Re 03:35:14 NERKSUMGMASTERSCLBR SRCTINDEX.B32; 1 . as | 
50 p 48 MOVL  (R2), RO : | 
0000v oF BSBW FIND’ INDEX : 
$0 E 31$:  BLBC  STATOS, 34$ : 
30 AE OD 4 MOVL BLOCK RO + 1818 | 
02 A 53D 8 MOVL R 2{R0) : 
5 4 p C MOVL (RB), R + 1819) 
009 V ; BSBW MARK_DIRTY : 
50 9 0 0 62 32$: MOVL  R9, RO + 1822 
0000v 6 BSBW  MARK_DIRTY : 
50 66 0268 MOVZWL (R6)> RO + 1824 
08 AE : C2 00268 SUBL2 RO, ADDPOS ; 
10 AE ° D : gf MOVL 7, INDEX_BLOCK1 + 1825 
14 AE 3D 3 MOVL 3, VB + 1826 
59 10 AE p0 00277 33$:  MOVL INDEX BLOCK, RO + 1834 
50 69 3C 0027B MOVZWL (R9),~R : 
50 08 AE C2 00 7 SUBL2  ADDPOS, RO ; 
57 59 08 AE C1 0028 ADDL3 ADDPOS. R9, R7 + 1835 
56 6f OC cf 0028 ADDL3 #12, ENTRY_SIZE R6 + 1836 
6647 oc A 50 28 00288 MOVC3 RO, 12(R7)> (RO6SCR7) : 
69 6E AO 00291 ADDW2 ENTRY_SIZE. (R9) + 1837 
t4 OC AC DO 00294 MOVL KEY_RFA, R > 1841 
oc A? 66 DO 00298 MOVL  (R6J, 12(R7) : 
10 A7 04 Ab BO 0029C MOVW 4(R65, 16(R7) + 1842 
1F 68 €9 002A1 BLBC  (INDEX_DESC), 36$ + 1844 
OF 68 04 £0 002A4 BBS #4, CIRDEX_DESC), 35$ > 1851 
52 01 DO 002A8 MOVL #1. R2 + 1852 
51 5A DO 002AB MOVL R10, RI : 
50 SA D0 OO2AE MOVL R10, RO ; 
00006 30 00281 BSBW § _MAKE_UPPER_CASE ; 
6A 50 £9 002B4 34$:  BLBC  STATOS, F 
13, A? 04 BA 6A 28 00287 35$:  MOVC3 (R10), @4(R10), 19(R7) + 1856 
12 A? 6A 90 0028p MOVB (R10). 18(R7) : 1858 
04 11 002C1 BRB 37$ + 1844 
12 A? 6A DO 002C3 36$: MOVL (R10), 18(R7) + 1862 
50 146 AE DO 002C7 37$:  MOVL BNI, RO + 1866 
0000v 30 002¢B BSBW MARK DIRTY : 
50 08 AE 6— C1 O02CE ADDL3 ENTRY_SIZE, ADDPOS, RO : 1870 
50 69 10 00 ED 002D CMP2vV #0, #T6, (RO), RO : 
23 12 00208 BNEQ 4 : 
10 68 02 E1 002DA BBC #2, CINDEX_DESC), 38$ + 1872 
59 DD 002D PUSHL 9 > 1874 
18 Ar DD O02E PUSHL VBN1 : 
58 DD 002E PUSHL INDEX_DESC : 
5B DD 0 E PUSHL 1 : 
CF 04 FB O02E CALLS #4, RESET_HIGHEST2 : 
oC 11 O02EC BRB 39$ F 
59 DD OOCEE 38$:  PUSHL R9 + 1876 
18 AE DD 0 F PUSHL VBN1 : 
58 DD O0eF PUSHL  INDEX_DESC : 
CF : FB OOOF CALLS #3, RESET HIGHEST : 
e4 0 €9 6 FA 39$:  BLBC STATUS, ; 
0 00006 CF 00 FD 40$: MOVL LBRSGL CONTROL , RO + 1883 
50 0A AO D0 00 02 MOVL 10(RO)7> Q : 
BF 04 Ab 81 CMPW 3s &(R6) , #65535 : 1885 
OD 13 0030C BEQL 41$ : 
6A AO i) OF INCL 106(RO) : 1887 
01 5B D1 0031 CMPL  =soR11, #1 : 1889 
| 
| 


Be Se Be Se Oe Be Ge Be Be Se Se Ge Ge Se Ge Se Se Se Se Se Se Ge Se Fe Se Se Se Ge Ge Se Se Ge Se Se Se Se Se ee Se Se Se Se Se Se Se Se Se ee se Sete Fe Se ee se Beas 


voc=b00 add_key 138 opx]882 93:39:14 UES cbimGmaStenscloR secdinpex.e32:1 29°13 | 


«HH BE fife 19 
0 i8 BRB : 1839 

78 OA D6 18 41$: INCL \ 29.89) + 1892 

50 01 D O51 428: MOVL » RO : 1895 
04 00321 43$: 1896 


; Routine Size: 802 bytes, Routine Base: S$CODE$S + 0480 


ee - ~} 
} 


true key was found and deleted. 
lor$_keynotfnd key was not found 


F 2 | 
LBR_INDEX 16-Sep-1984 01:56:1 VAX-11 Bliss-32 V4.0-74 Page 40 
v04=000 remove_key 12286871382 95:38:14 DISKSVMSMASTER: CLBR.SRCJINDEX.832;1 . (14) 
1087 1897 ZSBTTL ‘remove_key'; 
1088 8 GLOBAL ROUTINE remove_key (index, key_desc, stop_vbn) = 
1089 99 
1090 leon 
1091 ‘ 
O38 Delete a key from a specified primary index. 
094 i Inputs: 
095 : 
096 ! index = Primary index number 
344 key_desc = Descriptor of key if ASCII, else binary key. 
099 i 
69 Outputs: 
4 ! The key is deleted from the index if it exists. 
i 


BEGIN 


i) 
key_desc: REF BBLOCK; 


| 
stop_vbn (optional) = VBN of index block containing key. | 
LOCA 


L 

index_desc: REF BBLOCK, 
vbn, 

index_block: REF BBLOCK, 


entry: REF BBLOCK, 


Index descriptor 
VBN of index block 
Address of index block 
Address aay entry 

8 


offset, Offset to key entry 
addpos, Offset to add position , 
index_ptr, True if deleteing index pointer entry 
entry_size; Size of each entry 

BUILTIN 
NULLPARAMETER; ! True if argument unspecified 


BUENO OONAMNE WN OOONOUL WN O CONOUS WN Oo 


Find the entry describing the key. 


—OOCONO UNE WN “OO VONOULSWN—O0eOn 


perform (find ney (.index, .key_ desc, 
(IF NOT ULLPARAMETER(S) THEN .stop_vbn ELSE 0), 
vbn, index_block, offset, addpos)); 


un 


Push down all following entries in the block. 


ndex_desc = = Lar Sol control Floest hdrptr) + Lhd$c_idxdesc 
+ U.Tndex-1)*idd$c_Tength; 


[fz Indox_doscl 1édby_vartonién) ! If index block has variable length keys | 
! 
| 


: 
: 
: 
i 


BEEPS SE EFA IININININININININD 2 2 SS S| S“QOOOTOCOVOCOCOCOCWO 


abet 


entry_size = idx$c_rfaplsbyt + .key_desc Cdsc$w_length] 


DOOD OOOO OOODOO OOOO OVO OOOVO OO ODODODOOODOVDOODDODOODODOODODOOOOOOOO0OMED 


entry_size = idx$c_length + .index_desc Cidd$w_keylen]; 


RPPMPPDPINIMINININPININPININININIPIPUPINPIPINIPIPIPININPINPINPINININYININID 8 9 9 9 
m 
= > 


me a a a aa a a a tk a i tk atk ak a a at at tt a = 4 4 4 2 ds ot SS SS a ss te SS 
ee ee a a me a a ee ed ad td ed 2 = = = 8 8 = 2 8 + 


me a et te a tt = ts tS 2 SS SS Ss ss as 


PEP ew 

Ww —0O0 

oO 

Wn & 

WN —OCOONOU SWC 0On 


2 | 
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yOe=000 remove_key 1 730071382 93:35:19 DISKSVMSMASTER: CLBR.SRCJINDEX.832;1 aay 


an | 
———— 


entry = .index_block + index$c_entries + .offset; 
index_ptr = (.éntry(rfaSw_offsét] EQL rfagc_index); 


index block Cindex$w_used] = .index_block Cindex$w_used] - .entry_size; 
CHSMOVE(. index_block Cindex$w_used]"= .offset, 

-entry?.entry_size, 

-entry); 


AOQOCOUMUIUIUM 
WMO OONOUS 


OIDOOOOOOOO 


If the block becomes empty, remove it from the tree. 


F_.index_block Cindex$w_used] EQL 0 
HEN 


BEGIN 
A ese atce Cindex$l_parent] EQL 0 ! If root of tree, 
gn OUR Sote Cidd$l_vbnj = 0 ! Reset tree header 
remove_key(. index ! Else, remove parent pointer 


.k@y_desc, .index_block Cindex$l_parentJ); 
delete index’. vbn} ; ! Deallocate index block 


PARANA MUTI BE 


! 
IF index descl iddSv_varlenidx] ! If index block has variable length keys 
reset_highest2(.index, .index_desc, .vbn, .index_block) 
-" reset_highest(.index_desc, .vbn, .index_block); 


i] 
Unless we just removed an index pointer, update index totals in header 


WDODODOODOOOOOVOOOOOVOVOOOOOOO 


oO 


BIND 
header = .lbr$gl_controlClbr$l_hdrptr] : BBLOCK; 


IF NOT .index_ptr 
THEN BEGIN 
IF .index EQL 1 
THEN header(Clhd$l_modcnt] = .header(lhd$l_modcnt] -1; 
header(lhd$l_idxcnt] = .header(Clhd$l_idxcnt] =1; 


END 
a ELSE header Clhd$l_idxovh] = .header Clhd$l_idxovh] - 1; 


RETURN true; 
END; 


oO 
SSSSSewwrwOee Ita OOOO 


PARAM SONA AP SOG NOUR UNIO Doo aR 


@ 090009 090909 INI NNN NINN NINO AOA O 


ooononowovond 
333 S333 
mC 0on 


ELSE 
BEGIN 

| mark_dirty(.vbn); Mark block modified 
4 

4 

4 

4 

| 

1 


ek aaa ak a a a ak a a a = 2“ = = = 2“ St 2 = 2 = 2s = = 2 SY a SS SS) a Ls 1 
ee a ak a a a a od a a = Ls ts 2 2 2 = 2 4 2 SS a SS YS SS 
RS PN aa a nt ss st ss 5 ss 8 ss a 4 ts 


Be Se Se Se Ge Se Se Ge Se Be Ge Ge Se SH Fe Se Se FH Se Se See See Se FH Se Se Se Se Se SH He Fe Se SH SH Se Se Ss SHS Se Se ee Se Se Sees 


oo 


OFFC 00000 -ENTRY REMOVE KEY, Save R2,R3,R4,R5,R6,R7,R8,R9,— : 1898 


R10,R1 
5E 10 C2 00002 SUBL2 #16, SP : 
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Au Z2ZOaewvur-8~WZOr— O- OVW O~ OO Zw ee Yh RE Zea - CGH~R~ OY WOM —- ODawwoaz 
NO Swe r KK VN I MH EBHM I6- BBRQNVS “OBE TOCewrOet-e~ owns OV eee See >ozaeac>- 
ooo = a | 
a =< a» oo —+ §) 9 aN OBO Cu Nae a II IW ad 
ZITIITOVIITr stTsrin if NS NII IO USN UII UIs EES St lO TT 
DDIDIDE IMWwWDdIe 4jIDO Dz IWOOCOMOSTOA0A4 IE SZODO DON 22 Ie DD7D< DK COMADTDD 
O2000080+>- @0O@MOA2 OA V7OC FEIT OFAOF aE Se QVVO Zw ESE-@O-OD @MAGAAwAVOFtwowmaaa 


a a”) 


ae “ 
am ~_ rw ~o ~ oo oa 
Wry < QOMNWNO ££ Owe 1 FO Ee IND OOO EO Ee COW ee rT  DOOW STR OUWwewT WINE VOW 


SOOGQOOOOSOOSOSOOSOOSOOSSOSOSOSOSSOSOSSOSOSOSOSOOOSOSOSOSOSOSOSOSSOSOSSOOOOOSOoSSS 
CGOQOQooooooooooooooooooooooooooooooooooooooooooooooooSo io 
CGOCGOCOOOCOOSOSOOGSOOSOOSOSSOSOSSSOSOSOSSOOSOSOSOSSOSOSSOSOSSSSOSOOSOSOOOOOSOSoO 


Oe ee K—uwrnmon TST OO OOO TOWW VO VOO KOS K—VNOONONOMNUMN ST — OOOOOO--CO- aca 
OOOO — Or OF" COO OUWO OR. OWMOK— MVOVVUOAOO- OCOoOtMUNAO- Or OO Ou. Ok OMWOAoao 


> 
WWW TOMNUNWOUVOOR.O & OPR-WOP-P- PR. OWWO ON K KNOW Om OM OOVOMWe WOW OWr 
WME ctTOOTOCOR<AIMOW GT VOMDOOIOTC COM COMMMNVO ENHOVEO COC INO COwecooman 


ork N NN OWOO & 
MANDAN WMA oO NOMWm y, 


58 


0000v CF 
01 


03 


FFFF 
0000v CF 


09 
50 
60 


i ae etc 
Sep- 


vives Sor remove_key 1b-Se0-1984 9}: 35: if DL EKSVMGRAS FERSCLBR’ SRC SRC JINDEX.B832;1 Page st} 


<r 


8 DD 00087 PUSHL : 
0000v CF § FB 89 CALLS if RESET_HIGHEST2 : 
DD 000C6 10$ PUSHL + 1982 
10 AE 0d 000¢ PUSHL oan : 
; DD 000C PUSHL INDEX eDESC : 
0000v cf F ¢ CALLS #3, RESET HIGHES : 
: 00006 CF D ce 11$ MOVL taéseL “CONTROL, RO + 1989 
5 0 Ag D D MOVL (RO) RO : 
0D 2 E 9D5 BLBS INDEX PTR, 13$ + 1991 
01 D1 0000 CMPL = aRB, AT + 1993 
0 if 0008 BNEQ 12§ : 
6— AO D DD DECL 110(RO) + 1994 
6A Ad D7 OOOEO 12$:  DECL  106(RO) + 1995 
03 11 OO0E BRB 14$ + 1991 
78 AO D7 OOOES 13$: DECL 120(RO) + 1997 
50 01 DO OO0EB 148:  MOVL #1, RO + 2000 
04 OO0EB RET + 2002 


; Routine Size: 236 bytes, Routine Base: $CODE$ + 07D2 


——______——— 


J 2 
INDEX 16-Sep-1984 01:56:1 VAX=-11 Bliss=32 V4.0-74 Pa 4h 
=$00 Lookup_key 14 30-1984 ey DISKSVMSMASTER: CLBR.SRCJINDEX.B32;1 9045) 


& 


> 1194 003 1 XSBTTL ‘lookup key 

; 1199 : ! GLOBAL ROUTINE Tookup_key (index, key_desc, retrfa) = 

; 1199 99 1 tee- 

: 1198 $08 1 | Look iven key and return the RFA iated with 

3 ook up a given key and return the associate t 

; 1201 O98 ! } the \- 4 if tound.” . 

: 120 011 1! Inputs: 

: 120 og . 

> 1204 01 1! index = Primary index number 

; 1205 Bie 1 } key dese = Descriptor of key if ASCII, else binary key. 

3; 1206 19 1! retadr = Longword to receive key entry address. 

: iso 818 : ; retvbn (optional) = Longword to receive VBN of index block. 

: 1209 018 1 | Outputs: 

3 1210 019 1! 

: ae $o5s : retadr = Address of key entry if found. 

: 1518 gee 1/ true if key found 

: isi $0Si : lbr$_keynotfnd if key not found 

: i518 2025 1 ien- 

3 1217 2026 1 

3; 1218 544 BEGIN 

3 1219 028 

: 1220 594 P 

; \$¢) sot § retrfa: REF BBLOCK; ! Address as RFA structure 

; 135 2032 LOCAL 

3 1224 03 vbn, ! VBN of index block 

3: 1225 034 index_block: REF BBLOCK, ! Address of index block 

3: 1226 035 offset, ! Offset to key entry 

3: 1227 20 $ addpos, ! Offset to add position 

: iss sae entry: REF BBLOCK; ! Address of key entry 

; 158 039 2 BUILTIN 

3 } 4 984 NULLPARAMETER; ! True if argument unspecified 

31 3 P O4e perform (find_key (.index, .key_desc, 0, 

; 1234 043 vbn, index block, offset, addpos)); 

: ise6 ps9 entry = .index_block + index$c_entries + .offset; 

; 153 be IF NOT NULLPARAMETER(3) 

3 1239 048 THEN BEGIN 

3 1 “9 49 retrfa (rfa$l_vbn] =_.entry Cidx$l_vbn]; 

s ' ? bey corete rfa$w_offset] = .entry Cidx$w_offset); 

: 1508 05¢ - 

: \eee B27 RETURN true; 

> 1246 055 1 END; 
} 
} 


<r 
ow 


t-te 


; Routine Size: 


Lookup_key 


50 


65 bytes, 


7E 
0000V CF 
08 ag 
50 

03 


o-—— 


04 


ViPoauw 


Routine Base: 


0009 
10 ¢ 
5E bP 
08 AE 9F 00097 
10 AE 9F QOO0A 
18 Ae 44 Save 
ote Be 
g Fe 0016 
oo A ET Sul 
oc CO 09 4 
6C 91 00027 
11 16 QO02A 
oc AC 3 002C 
OC 13 0002F 
oc AC 00 BRS 1 
60 00 00035 
04 Ad 60 at 
01 00 00030 
04 00040 


SCODES + O8BE 


Nm— 


AM 


eh ey 


Bliss-32 V4. 
R 


sr Save nothing 


RPAD HH SH — BOM RY 1c - OUR 
AMM > —FANZ- DZ VO 
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LBR_INDEX 1b-se $1984 01:56:1 VAX=11 Bliss-32 V4.0-74 P 4 
18e=000 traverse_keys 12=808-1 388 93:38:] DL SKSVMGMASTERSCLOR. SRCTINDEX .B32:1 age 465 


: 1248 56 1 ZSBITL ‘traverse_keys'; ‘ 
; 1 4 5 } GLOBAL ROUTINE traverse_keys (index, action_routine, user_routine, rfa) = : 
| 5 2g 1 <<< ; 
1588 ber T ified pri index in k d 
; ' raverse a specified primary index in key order : 
; : 2¢ $e ! calling a user action’ rout ine for each key. : 
3; 1256 064 1 ! Inputs: : 
: 1257 065 1! ; 
: 1258 896 1! index = Primary index numebr : 
3 1259 or 63 Betton Foye sae = Address of internal action routine . 
: 1260 66 1! user_routine = Address of user action routine . 
; ' o 898 : } rfa = RFA to pass to action routine : 
: 1583 071 1 ! Outputs: $ 
3 1264 O76 1! $ 
: 1265 O75 1! The user routine is called with the following arguments: : 
3: 1266 074 1! 1) Address of key entry ; 
> 1267 075 1! 3 
>; 1268 076 1 !--- : 
3; 1269 077 1 : 
; 1270 078 BEGIN : 
3 1g?) 079 : ‘ : 
3 7 re 080 ROUTINE traverse (index_desc, vbn, action_routine, user_routine, txtrfa) = ‘ 
a : 
3 1275 2088 ’ Scan ali entries in the given index block. : 
3; 1276 084 ! 3 
s tere Sper P : 
3; 1278 086 index_desc: REF BBLOCK; ! Index descriptor ‘ 
3; 1279 2087 : 
; 1280 2088 3 LOCAL 3 
: 1281 2089 ; index_block: REF BBLOCK; ! Index block address : 
: 1st 4! 3 
; \ee7 394 ; perform (find_index (.vbn, index_block)); 3 
3; 1285 2098 INCRU entry FROM .index_block+index$c_entries : 
; 1286 094 - index _block?index$c_entriés+. index_blockLindex$w_usedJ-1 : 
3 1287 2095 BY idx$c_Tength + .index_desc Cidd$w_keylen] ; 
; 1288 2096 DO 3 
: iss? 2097 4 BEGIN : 
: 1290 2098 4 MAP entry: REF BBLOCK; 3 
; 138 3100 ? if gentry Cidx$w_offset] EQL rfa$c_index ! If subindex, : 
a 38 P 2101 4 perform (traverse (.index_desc, .entry Cidx$l_vbn], 3 
: 1294 198 5 eaction_routine, .user_routine, .txtrfa)) 3 
; if +.44 103 4 ELSE k : 
: 1296 104 4 perform((.action_routine)(.entry, .user_routine, .index_desc, .txtrfa)); 3 
; f 3.44 105 END; : 
; 1298 198 : 
3: 1299 10 RETURN true; ; 
; 1300 2108 2 END; : 


M 2 
LBR_INDEX 16-Sep-1984 01:56:1 VAX-11 Bliss-32_V4.0-74 P 4? 
vO42000 traverse_keys 18231382 9b:35515 DI SKSVMSMASTERSCLBA. SRCIINDEX.B3251 29° 16) 


OFFC 00000 TRAVERSE: 


“WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 2080 
SE 04 ¢2 00 see? rT : 
51 6E 0 MOVAB INDEX BLOCK, R1 + 2091 
50 08 AC p 0 MOVL -~VBN : 
0090v 000¢ BSBW ss FIND INDEX : 
51 5 5 0 OF BLBC = STATOS : 
50 00 BE f 012 MOVZWL @INDEX BLOCK, RO + 2094 
20 6 § 0016 ADDL2 INDEX BLOCK, : 
5 0B OA : 00019 VAB -11(ROJ, RS : 
53 . a p 1D VL NDEX_DESC, R3 + 2095 
54 2 as 3C¢ 1 MOVZWL 2(R3)~ Ré : 
54 06 CO 00025 ADDL ¢ #6, RS : 
52 6E 0c ¢€1 00028 ADDL3 #12, INDEX_BLOCK, ENTRY : 2102 
2D 11 0002C BRB 4 ; 
FFFF SF 04 A2 B1 0002E 1$ CMPW 3s GENTRY), #65535 + 2099 
11 12 00034 BNEQ 2$ F 
7E 10 AC 7D 00036 MOVQ §_USER_ROUTINE, =(SP) + 2102 
0C AC DD OO03A PUSHL ACTION ROUTINE : 
$¢ DD 00030 PUSHL  (ENTRYD : 
53 DD 0003F PUSHL R : 
BB OAF 05 FB 00041 CALLS #5, TRAVERSE F 
OE 11 00045 BRB ; 
14 aC DD 00047 2$ PUSHL TXTRFA + 2104 
53 DD OO04A PUSHL R ; 
10 AC DD 0004C PUSHL  USER_ROUTINE : 
52 DD 0004F PUSHL : 
0c BC 04 FB 00051 CALLS #4, @ACTION_ROUTINE : 
0B 50 €9 00055 3$: BLBC. STATUS, 5$ ; 
52 54 CO 00058 ADDL2 R4, ENTRY : 2093 
55 52 01 00058 4$: CMPL  _—s ENTRY, RS ; 
CE 1B 0005E BLEQU : 
50 01 00 00060 OVL #1, RO + 2107 
04 00063 5$ ET > 2108 


Routine Size: 100 bytes, Routine Base: S$CODES + O8FF 


3 1301 2109 

3; 1302 2110 ROUTINE traverse2 (index_desc, vbn, action_routine, user_routine, txtrfa) = 
: 1300 a2 3 oN 

; 1303 113 ; Traverse2 handles indices with variable length keywords. 

: 1306 114 : Scan all entries in the given index block. 

; 1307 115 : 

3; 1308 116 P 

3; 1309 117 index_desc: REF BBLOCK; ! Index descriptor 

3 1310 118 

3 1311 119 LOCAL 

; 1316 120 entry. ' Traverse each entry in index block 

: 1312 : 1 index_block: REF BBLOCK; ! Index block address 

$ HE ; § perform (find_index (.vbn, index_block)); 

: 1 19 125 Ht = .index_ blockt+index$c_entries; , 

3; 1318 126 WHILE .entry LSS .index_block+index$c_entries+.index_blockLCindex$w_used]-1 DO 


2 
LBR_INDEX 16-Sep-1984 01:56:1 VAX-11 Bliss-32 V4.0-74 
ibe=b00 traverse_keys 1 30071382 93:35:19 DLSKSVMGMASTERSELBR. SRCSINDEX.B32:1 
; 1319 127 4 BEGIN 
: 1520 128 4 MAP entry: REF BBLOCK; 
3 : 1 } ; ? i gentry Cidx$w_offset] EQL rfa$c_index ! If subindex, 
3; 1 § P 2131 4 perform (traversed (,index_desc, .entry Cidx$l_vbn], 
: : : : ¢ i se -action_routine, .User_routine, .txtrfa)) 
; 1326 134 4 perform((.action_routine)(.entry, .user_routine, .index_desc, .txtrfa)); 
3 1327 135 4 entry = .entry + idxSc_rfaplsbyt + .entry CTdx$b_keylenJ; 
; 1328 1 ° END; 
; 1329 1 
; 1330 138 RETURN true; 
3; 1331 139 END; 
OFFC 00000 TRAVERSE2: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
5E 04 C2 0000 SUBL2 S 
51 6E 3 0000 MOVAB INDEX BLOCK, R1 
50 08 AC B 00008 MOVL N, R 
0000v 30 0000C BSBW = FIND_ INDEX 
4D 50 €9 QOOOF LBC STAT 
52 6E 0c ¢! 00012 ADDL3 #12, INDEX_BLOCK, ENTRY 
50 OC BE 3C 00016 1$: MOVZWL @INDEX_ BLOCK, 
506 6E CO QOO1A ADDL INDEX_BLOCK, RO 
50 0B CO 0001D ADDL #11, RO 
50 3 D1 900 CMPL ENTRY, RO 
18 000 BGEQ 4$ 
FFFF 86 BF 04 Ag B1 00025 CMPW 4(ENTRY), #65535 
12 12 00028 BNEQ 2s 
7E 10 AC 70 Base MOVQ USER_ROUTINE, (SP) 
0c AC DD 00031 PUSHL ACTION_ROUTINE 
62 DD 00034 PUSHL (ENTRYS 
04 AC ODD 00036 PUSHL INDEX_DESC 
C3 AF 05 FB 00039 CALLS #5, TRAVERSE2 
OF 11 pear BRB 3$ 
14 AC OD it F 2$: PUSHL TXTRF 
04 AC OD OOE PUSHL  INDEX_DESC 
10 AC OD bone PUSHL USER _ROUTINE 
52 DD 00048 PUSHL ENT 
oc «BC 4 Fe 4984 CALLS #4 pid tema 
OE 0 3 O4E 3$: BLBC_ = STATUS, 
50 06 As a 9051 MOVZBL SiENTaY Rg 
52 07 A042 4. 00055 MOVAB  7(RO)CENTRYJ, ENTRY 
11 OO0SA BRB 1$ 
50 01 DO Baoee 4$ MOVL #1, RO 
04 OOOSF 5$ RET 
; Routine Size: 96 bytes, Routine Base: $CODE$ + 0963 
3 133 $130 , 
3; 133 141 : Main body of traverse_keys procedure 
3 1334 2142 ! 
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: 1335 143 LOCAI, 

: : Vee ndex_desc: REF BBLOCK; ! Index descriptor 

: 1338 14 index_desc = .lbr$gl_control Clbr$l_hdrptr3 + Lhd$c_idxdes 

; } 23 149 + ’. egret eh uosS “Tength; h; sere 

; : 1 198 os -index_desc Cidd$l_vbn] EQL 0 ! If empty index, 

: 134 151 RETURN true; ! return immediately 

i 138 138 5 

; : 48 138 } Set the lock for the index 

4 1343 136 index_desc Cidd$v_locked] = true; 

; 1329 $128 if , index, descCidd$v_varlenidx] ! If index block has variable Length keys 
; 1326 P $180 ; perform(traverse2(.index_desc, .index_desc os Ht) _vbnJ, 

; 1327 gi6l ~ saction _routine,.user_routine, .rfa)) 

: 1355 Pp $188 2 perform(traverse(.index_desc, .index_desc Cidd$l esas | 
: 1328 $166 § action _routine,.user_routine, .rfa) 

: 1358 ate 2! Clear the lock 

3; 1359 2167 2! 

: 1360 $108 § index_desc Lidd$v_locked] = false; 

: 1368 2170 2 RETURN true; 

: 136 2171 2 

3: 1364 2172 1 END; 


0004 00000 .ENTRY TRAVERSE_KEYS, Save R2 : 2057 
CF DO 02 MOVL LBRS$GL_ CONT TROL, R1 : 2146 
AC p 07 MOVL —_— INDEX + 2147 
40 OB MOVAQ aocn{ R03, INDEX_DESC : 
ce 10 MOVAB 188(R2), INDEX : 

A 15 TSTL 4 (INDEX.DESC) ~ > 2149 
31 18 BEQL 6 3$ : 

02 1A BISB2 #2, (INDEX_DESC) + 2156 
0 1D BBC #2, CINDEX“DESC), 1$ > 2158 
AC 21 OVQ USER _ROUTINE, -(§P) > 2161 
AC $3 PUSHL ACTION ROUTINE : 

A 8 PUSHL  4C(INDER_DESC) : 

7 B PUSHL INDEX DESC ; 

0 D CALLS #5, TRAVERSE2 ; 

11 2 BRB 23 ; 

AC 4 MOVQ USER_ROUTINE, -(SP) > 2164 
AC 8 PUSHL ACTION ROUTINE : 

A B PUSHL  4(INDER DESC) ; 

5 PUSHL INDEX DESC : 
0 4 CALLS #5, TRAVERSE : 

50 4 BLBC STATUS, 4$ F 

02 48 BICB2 #2, (INDEX_DESC) > 2168 
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3; 1 173 1 &SBTTL ‘find keys 

3 1 174 1 GLOBAL ROUTINE find_key (index, key_desc, stop_vbn, 

3 7 175«(1 retvbn, retblkadr, retgenpos, retaddpos) = 

‘| We yi 

: 1 178 1} Find a given key and return all information concerning 

3: 1 wy 62 its position within the index tree. This routine is 

3; 1 180 1! used gotety by routines such as add_key, remove_key, 

; : 18¢ : etc. for the common key search processing. 

3 1 1 : 1 ! Inputs: 

3 3 ise 1! 

3 1 185 1! index = Primary index number 

3; 1 186 1! key_desc = Descriptor of key if ASCII, else binary key. 
:4 187 1! stop_vbn = VBN of specific index block, 0 if bottom of tree. 
21 188 1! retvbn = Longword to receive VBN of index block. 

3; 1 189 1! retblkadr = Longword to receive address of index block. 

3 1 190 1! retgenpos = Longword to receive offset to generic entry. 
; : 133 ! retaddpos = Longword to receive offset to add position. 

3 3 $198 1 ! Outputs: 

3 1 196 1! 

3 1 195 1! retvbn = VBN of index block. 

3 1 19% 1! retblkadr = Address of index block. 

3 1 2197 1! retgenpos = Offset to generically closest key entry. 

: ; $138 ; retaddpos = Offset to position to add key. 

3 135 2200 1! true if key found 

3; 13 2201 1! false if key not found 

3; 13 $508 1 lee- 

3; 13 $$0 1 

3; 1397 04 2 BEGIN 

: 1398 2205 2 

3; 1399 2206 2 MAP , . 
3; 1400 2207 2 key_desc: REF BBLOCK; ! Access as string descriptor 
3: 1401 2208 2 

3 1306 2209 § LOCAL 

3: 140 2210 status, 

3 1404 2211 2 keydesc : BBLOCK Cdsc$c_s_bln], 

: 1405 $5i¢ keynambuf : BBLOCK ClbrSc_maxkeylen), : 

3: 1406 221 index_desc: REF BBLOCK, : Index descriptor 

3 1407 2214 index_block: REF BBLOCK, ! Address of index block 
: 1408 2215 2 vbn, ' VBN of current index block 
3 1409 $51$ § offset, ! Offset to closest entry 
3 1410 1 addpos; ! Offset to add position 
: 1411 218 

5 at} 219 MACRO 

3 141 M 2220 entry (address,b) = 

2 14146 M $$! (address+index$c_entries+b) 

: 1212 $55 ZIF ZLENGTH GTR 2 XTHEN <ZREMAINING> XELSE <0,0,0> %FI2; 
3 1417 $i index_desc = olbrSqt control Clor$l_hdrptr] + Lhd$c_idxdesc 

3 1ei8 225 ; + (,Iindex-1)*idd$c_Tength; 

: 1369 } Get address of primary index block 

3 1422 229 vbn = .index_desc Cidd$l_vbnj; ! Top of tree 
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If no primary index block exists yet, key not found. 
vbn EQL 0 ! If no primary index block yet, 
RETURN Lbr$_keynotfnd; ! Return key not found 
keydesc = 0; 
keydesc pescéu. length? = .key_desc Cdsc$w_length]; 
keydesc dsc$a_pointer] = keynambuf; 
! If keywords in this index are to be upper cased for comparison then upcase 


if NOT .index_desc Cidd$v_nocasecmp] 
get perform ‘make_upper_Case (.key_desc, keydesc, true)) 


| 
BEGIN | 
CHSMOVE (.key desc Cdsc$w_length], .key_desc Cdsc$a_pointer], 
ekeydesc Cdsc$a_pointer]); | 

| 


END; 
' 
If a specific index VBN was specified, start there 
if -Sstop_vbn NEQ 0 ! If specified, 
THEN 
vbn = .stop_vbn; ! then use it 
i Search down the subtree until either the bottom is 
reached or an error is detected. 
DO BEGIN 
Locate the index block to be searched. It will either 


find the block in the index cache or it will be read 
from disk and cached. 


Search for position of key within index block. 


E 
' 
i 
' 
i 
| 
perform(find_index(.vbn, index_block)); 
i 
' 
iF «index descl iddSv_varlenidx] ! If index block has variable Length keys 

status = key_search2(.index_desc,.index_block,keydesc, 

offset, addpos) 


status = key_search(.index_desc,.index_block,keydesc, 


offset, addpos); 


SNS NSS NP PDA DAA A AAD US BS BB EE EAN 
DWONOUES WIN $0 OONAUE WIN $9 OODNAUE WN O OONOAUES ARO OONOULS Win 


If a specific index block was specified, then stop the search. 
stop_vbn EQL .vbn ! If at specified block, 
EXITLOOP; ! then stop search | 


i If the entry found by the binary search points to another 
! index, then continue searching using that index. If it 
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; 1480 7 : oints to an actual data record, then we have reached the ‘ 
; 108) : ottom of the tree and the search is stopped. . 
; 1288 90 IF .offset LSS 0 : if no closest oncry. : 
3 ie: 4! OR .entry(.index_block+.offset,idxSw_offset) NEQ rfaS$c_index ; 
; 1o88 38 EXITLOOP; ! Then stop search | : 
; 1488 95 vbn = .entry(.index_block+.offset,idx$l_vbn); ! Next index | : 
: 1489 38 END ; 
° 1490 9 | o 
3 1491 98 UNTIL false; ! Loop until EXITLOOP : 
: pe 99 

3; 149 00 : 

3 1494 01 : Return index block VBN, address and entry offsets. 

3: 1495 208 : 

3 1496 30 eretvbn = .vbn; 

3: 1497 2304 sretblkadr = .index_block; ' Return block address | 

3 1498 2305 eretgenpos = .offset; ! Return offset to entry | 

; 1335 S308 -retaddpos = .addpos; ! Return offset to add position 

3 138) Sa0e If NOT .status ! If key not found, 

$ 1208 2310 RETURN Lbr$_keynotfnd; ! Return key not found 

3; 1504 2311 | 

; 1505 $316 : ? 

3 1208 seiz Propagate actual length of actual index string back to caller 

; 1508 2315 $ key desc(dsc$w_length] = .keydesc(dsc$w_length); 

: 1509 2316 2 RETORN true; ! Return successful | 

; 1510 2317 2 

3 1511 2318 1 END; 


OFFC 00000 .ENTRY FIND_KEY, Save R2,R3,R4,R5,R6,R7,R8,R9,R10,-; 2174 
SE FF6C CE 9€ 0000 MOVAB -148(SP), SP F 
51 00006 CF DO 0000 MOVL §§LBRSGL_CONTROL, R1 : 2224 
50 04 AC BO 9900¢ MOVL ‘INDEX, R + 2225 
57 A B140 7E 00010 MOVAQ a@10(R1)CROJ, INDEX_DESC ; 
of 00B¢ (7 9 9915 MOVAB 188(R7), INDEX_DESC : 
4 s a 6 1A MOVL 4 (INDEX’DESC),~VBN : 3229 | 
03 12 0001 BNEQ =‘'1$ > 2233 
00a5 31 000 BRW aS : 
F8 AD D4 00 1$: CLRL iE F 3337 
56 08 AC 00 00026 MOVL KE 6 : 2238 
D 66 80 002A MOVW = (R Sc ; | 
Ag 5 0 MOVAB A KEYDESC+4 5 39 
03 £0 00 BBS. DESC), 2$ : 2043 | 
AD MOVAB KE > 2264 
gi D B MOVL = #1 ; | 
6 E MOVL R6 3 
06 0 41 BSBW Ss«éMAA CASE ; 
E8 00044 BLBS = ST : | 
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KEYDES 
INDEX_BLOCK 
INDEX” DESC 

#5, KEY_SEARCH 
RO, STATUS 


7 
FFSET, R1 


. INDEX_BLOCK, RO 
(RO). #5535 


R1 

16 

7$ 

RI NDEX,BLOCK, RO 
12(R0), VEN 

4$ 

VB 


D 
OFFSET, @RETGENPOS 
ADDPOS, @RETADDPOS 


#LBRS_KEYNOTFND, RO 
KEYDESC, (R6) 
#1, RO 


@RETVBN 
IN EX BLOCK @RETBLKADR 
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ROUTINE key Search (index_desc, index_block, key_desc, genpos, addpos) = 


~w 


— 


' eee 
1 
This routine searches a specified index block using a binary 
search and returns the position (offset) within the block 
where the key should be added (if not found) or its exact 
position (if found). 


It is also used to run down the index tree to find a given 
key by searching each index block and using the ote found 
Cc e n 


WN "SO OONOUNESWN —OOONOULS Ww 


Cy ee et a Nt fate a 
ww 


} 
| 
i 
1 1 $ 
: 8 | | 
: , ] | : 
: gi | 
1 4 1! $ 
: 8 i | 
13 - 1! | F 
15 Be ; 
15 >, i} : 
1 0 1! 3 
1 3% enerically using this routine to get to the next index block : 
15 ; § 1! o be searched (the child). ; 
15 1! : 
15 $3 4 1! Inputs: : 
15 2335 1! 3 
15 336 1! index_desc = Primary index descriptor | : 
15 +) ae ie index_block = Address of the index block : 
15 338 1! key_desc = String descriptor of the key : 
15 2339 1! genpos = Longword to receieve offset to the entry which is ; 
15 2340 1! most generically close to the key. . 
15 2341 1! addpos (optional) = Longword to receieve offset to position : 
: 1536 tak: 1! where the key should be added in the block. : 
; 1537 2343 1! F 
3; 1538 2344 1 ! Outputs: ; 
3; 1539 2345 1! | 3 
3 1540 2346 1! genpos = Offset to generically closest entry. ; 
3 130) tot ’ addpos (if specified) = Offset to position to add key. | : 
3 1363 2349 1! Routine value = true if key found, else false. : 
3 1544 2350 1 !--- F 
3 1545 2351 1 : 
3; 1546 $328 $ BEGIN : 
3 1547 35 : 
3: 1548 2354 2 MAP 3 
3 1549 2355 3 index_desc: REF BBLOCK ! Index descriptor 3 
; 1550 2356 index_block: REF BBLOCK, | Address of index block ; 
: 1551 2357 key_desc: REF BBLOCK; ! String descriptor 3 
; 1336 2358 3 
; 155 2359 LOCAL : ; : 
3 1554 2360 entry_size, ! Size of each index qntry : 
3; 1555 2361 test, ' -1 (LSS), 0 (EQL), 1 (GTR) 3 
3 1326 $308 min, ' Lower search Limit F 
3; 155 6 max, ! Upper search Limit 
3; 1558 $eee : ' Current entry being searched 
3; 1559 65 
3; 1560 308 BUILTIN E 
3 136) 307 NULLPARAME TER; ! True if argument unspecified 
; 1365 69 MACRO | 
3 1564 L 0 entry (i-be0.8/e?) = 
: 1202 4 ndex_block Cindex$c_entries+(i-1)*.entry_size+b,p,s,eJ]2; 
: 1369 38 entry_size = idx$c_length + .index_desc Cidd$w_keylen); 
; 1568 $e min = 1; } : Set min and max Limits 
3 1569 75 max = .index_block Cindex$w_used]/.entry_size; 
| 


st sc PE — ; 
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85 
gs 


| 
; 1570 r | 
; 1871 7 IF _.max EQL 0 ! If null index block, 
; 3 ie 7 THEN | 
; 157 7 BEGIN 
3; 1574 0 i=; ! Add at Ist slot 
3; 1575 1 test = -1; ! No adjustment, key not found 
3 3 8 § END 
3; 157 ELSE 
; 1578 4 dO 
3; 1579 Hi BEGIN 
; 1580 $ i = (.min+.max) / 2; ' Calculate middle entry 
; 1381 8 IF_.index_desc Cidd$v_ascii] i If ASCII keys, 
3 19 ¢ & THEN 
3; 158 89 4 BEGIN 
3: 1584 90 4 IF .index_desc Cidd$v_upcasntry] 
; 1585 91 4 THEN 
3; 1586 3 5 BEGIN 
3; 1587 39 : LOCAL 
3 1383 Soe 2 entrynambuf : BBLOCK Clbr$c_maxkeylen); 
; 1590 396 5 moveto_upper_case ( gentry C.i,idx$b_keylend, 
3; 1591 44 5 antey C.i,idxSt_keyname], entrynambuf); 
: 1238 98 5 test = CHSCOMPARE(.key_desc Rese ou_Lengtnd, ! Compare ASCII keys 
3; 159 399 5 -key_desc Cdsc$a_pointer], 
3: 1594 400 5 -entry C.i,idx$b_keylen), 
3; 1595 401 5 entrynambuf, 0); 
: 1596 402 5 EN 
3; 1597 403 4 ELSE 
3; 1598 404 4 test = CHSCOMPARE(.key_desc peeetulengehs, ! Compare ASCII keys 
3; 1599 405 4 -key_desc bdecte_povater . 
: 1600 406 4 eentry C.i,idx$b_keylen], 
: 1601 2407 4 entry C.i,idx$t_keyname],0); 
; 1606 2408 4 END 
3; 160 soup ; ELS 
3; 1604 410 test = ..key_desc - .entry C.i, idx$l_keyid); 
3; 1605 sei} IF .test GTR 0 
: 1606 aig THEN 
3; 1607 241 min = ,i+1 ! Set to upper half 
; 1608 seis ; ELSE 
3; 1609 415 max = .i-1; ! Set to lower half 
Sen 7 BT Eg 
3 1elg a UNTIL (.test EQL 0) OR (.min GTR .max); 
3 1614 420 2 IF .test GTR 0 ! If greater than last key 
3 1615 421 THEN 
3 eis ? § = ,i+1; ! then point after Last key 
; 1618 4 4 IF NOT NULLPARAMETER(5) ! If add position specified, 
3 1959 ? $ , saddpos = (.i-1) * .entry size; ! Return offset where to add key 
: 16e¢ 428 2 | If the add position points past the end of the block, 
3 16 429 : then adjust the closest entry to point to the last entry 
3 1624 430 ! in the block so that add_key has a block to insert the 
: 1625 431 ! key into. Note that if Ehe block is empty, return -1. 
3 1626 432 : 
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R_INDEX 1 VAX-11 Bliss-32 V4.0-7 Page 58 
Lbezo00" key_search 12: 33e- 1382 9}: 35: if DISKSVMSMASTER:CLBR. Ske INDEX.B32:1 9 (18) 
54 01 aS 9 0 99 NOVAB 4{R5), MIN ; 2413 
7 6 BE Be flap. mm 3 

» FEBS Re ie a ; 

03 14 OAA BGTR 9$— : 
aes Op Sone 9s ay test + 2420 

0¢ 1 Bont BLEQ 168 : 
D6 000B3 INCL I + 2422 
05 6c 91 0085 10$:  CMPB (AP), #5 + 2624 

16 RE BS O00BA BES SU CAP) : 

09 3 00BD BEQL =:‘118 ; 
50 FF OAS 9 OOOBF MOV -1(R5), RO + 2426 
ne hes ys gE te fore 11s; peek> | ORMTRY. SIZE, RO, @ADDPOS + 2433 

10 BC 55 6E CS OOOCA — MULL3 ENTRY SIZE, R5, aGENPOS ; 
10 BC 08 BC 10 06 ED OO0cr CMPZV #16, @INDEX_BLOCK, @GENPOS 3 2434 
10 BC 6E C2 iat SUBL ENTRY. SIZE, @GENPOS ; 2436 
aH Spe rae: GE he 

7 aa : 
04 O00E4 13$: RET + 2440 


; Routine Size: 229 bytes, Routine Base: S$CODES + OAEA 


3 | 

LBR_INDEX 18-se -1984 01:56:1 VAX-11 Bliss-32_V4.0-74 Page 59) 

vives 00 key_search2 1 =300 71382 93:38:14 DLSKSVMEHASTERSELBR: SRCSINDEX.B32:1 ’ as 
: 16 441 1 ZSBITL. ‘key_searche'; ‘ 
; 19 rr 1 ROUTINE key _Search2 (index_desc, index_block, key_desc, genpos, addpos) = : 
; 1639 444 1 !-e- | 3 
; 1640 445 1! 3 
; 1641 446 1: Key search2 is a modified key_search to handle indices with | ; 
: lobe 447 1! variable length keywords. : 
3: 164 tts 1! This routine searches a specified index block using a sequential | 3 
; 1644 449 1! search and returns the position (offset) within the block | H 
3; 1645 450 1! where the key should be added (if not found) or its exact | : 
$ 1008 $2) ’ position (if found). : 
3; 1648 rk 1: It is also used to run down the index tree to find a given : 
3: 1649 2454 1! key by searching each index block and yews the a found : 
; 1650 2455 1! ray of cally using this routine to get to the next index block : 
: 1651 2456 1! o be searched (the child). ; 
: 1638 2457 1! : 
3; 165 2458 1 ! Inputs: F 
3: 1654 2459 1! : 
3: 1655 2460 1! index_desc = Primary index descriptor $ 
> 1656 2461 1! index_block = Address of the index block : 
3 1657 sie . 7 key_desc = oer ee descriptor of the key 3 
3; 1658 2465 1! genpos = Longword to receieve offset to the entry which is : 
3; 1659 2464 1! most generically close to the key. : 
: 1660 2465 1! addpos (optional) = Longword to receieve offset to position F 
3; 1661 2466 1! where the key should be added in the block. : 
; 1662 2467 1! F 
> 1663 2468 1 ! Outputs: 3 
3 1664 2469 1! : 
3; 1665 2470 1! genpos = Offset to generically closest entry. : 
: 1098 ser : addpos (if specified) = Offset to position to add key. ; 
3; 1668 sing 1! Routine value = true if key found, else false. 3 
3 1669 2474 1 N= F 
3; 1670 2475 1 : 
3 1671 2476 2 BEGIN 3 
3; 1672 2477 3 
3 1673 2478 2 MAP : : 
3; 1674 2479 index_desc: REF BBLOCK ! Index descriptor : 
> 1675 2480 index~block: REF BBLOCK, i Address of index block ; 
: 1676 2481 2 key_desc: REF BBLOCK; ! String descriptor : 
3: 1677 Seng § : 
3: 1678 48 LOCAL , 
3; 1679 stk entry_size, ' Size of each index engry : 
3; 1680 st 5 test, > 7 (LSS), (EQL), 1 (GTR) : 
3: 1681 ty, max, ! offset to end of used index : 
3; 168 248 last_entry, ! offset to last entry examined : 
3; 168 2488 cur_entry; ! offset to current entry examined : 
> 1684 stop : 
3; 1685 490 BUILTIN > : 
; 1986 ved NULLPARAME TER; ! True if argument unspecified | : 
3; 1688 349 MACRO : 
: 1689 m 549% entry (i.b,p.$,€) = | : 
3 190 $486 ndex_b ock Cindex$c_entries+i+b,p,s,eJ2; : 
3 1692 49 IF NOT .index_desc Cidd$v_ascii] ! If not ASCII keys, : 

| 


— 


mM 3 
LBR_INDEX 16-Sep-1984 01:56:1 VAX=11 Bliss=-32_V4.0-74 Page 60 L 
1827000 key_search2 14-$ prt 884 93:39:19 DL SKSVMEMASTERSCLBR. SRCTINDEX.B32:1 7 (185 Vv 
| 
1693 49 HEN ; 
19% RETURN Lbr$_intrnlerr; ! key_search2 only for ASCII keys : 
96 max = .index_block Cindex$w_used]; : 
97 test = 1; ' Pre set to key not found . 
98 last_entry = 0; ! pre_set to first entry : 
4 cur_entry = 0; ! pre_set to first entry : 
01 IF .max EQL 0 ! If null index block, ; 
THEN : 
BEGIN ; 
test = -1; : 
END : 
ELSE : 
BEGIN 
vine | i GTR 0) AND (.curlentry LSS .max) DO 
IF .index_desc Cidd$v_upcasntry] 
THEN 
BEGIN 
LOCAL 


entrynambuf : BBLOCK Clbr$c_maxkeylend; 


moveto_upper_case (.entry C.cur_entry,idx$b_keylen], 
entry C.cur_entry, Tdx$t_keynameJ, entrynambuf); 


test = CHSCOMPARE(.key_desc cesetuLongend. ! Compare ASCII keys 

ekey_desc Cdsc$a_pointer], 

-entry C.cur_entry, idx$b_keylen], 

entrynambuf, 0) 
| 
| 
j 
| 


Ss 

test = CHSCOMPARE(.key_desc pecctn,Lengehs, ! Compare ASCII keys 
ekey_desc Cdsc$a_pointer], 

-entry C.cur_entry,idx$b_keylen], 

entry C.cur_entry, idx$t_keyname],0); 

IF (.test GTR 0) 

THEN 

GIN 
last_entry = .cur_entry; : 
cur_entry = .cur_entry + idx$c_rfaplsbyt + .entryC.cur_entry, idx$b_keylen]; 


WNIAININIPININININPINININ 2 2 OO SS SS QOOOOOCOCO 


GEREANS AS SONORAN SO OONAMNE WW OD® RR OID 


Bo So Be Se Be Se Be Fe Se Fe Se Se Se Se Se Se Be Fe Se Fe Ge Ge Ge Ge FF SF Se Ge Ge Se FF Se Se FF Se BES Se Se Se Se Se Se Se Se Se Se ese este Sete Sees tee 
POPIPIPOPIPIPOPINPDPOPOPINIMYAINPDPDNININIPINYI PIP PININIPIPININIPONIPINIPININPIPOPOPIPININPYIPINPINIPIPIPPPUPOP PUPPY 
Pew alah al ah ah ah dh ah dh Ah ah dh dh eb Ab db db bedded bedded bed bedbi bbb db Ah db db Ab Ab dh db Ab Ah Ah ah sh Ab Ab sh ah ab she al ahs sh ah ah ah al ab oe 
PU B BBB BBE EE WWIII NAIA DIPONININNDY 4 9 OS S| SB OOOOCOOOCOOCOCOOOCO 
FUR OC OONAUE WO OONOAOUES WN (OOO NAOUE WN OC OONOUSWN SHC ODNOULS WO 


ee a ee ce ec ee ee ee ec me ee ee me ee ec a ed ce ec ee ed ee ee ee ed ed ed ed ed ed od 


RIPIPIPIPDPIPIPOPIPINPINIPINI SS VIII SS UB BB HS SNIP) 


END; 

END; ! While 
3 END; 
A hd NULLPARAME TER(5) ! If add position specified, 
mf ; -addpos = .cur_entry; ! Return offset where to add key 
rhe i If the add position points past the end of the block, 
74 : then adjust the closest entry to point to the last entry 
744 ! in the block so that add_key has a block to insert the 
OF } key into. Note that if Ehe block is empty, return -1. 
reo sgenpos = .cur_entry; ! Return offset to closest entry 
be eg ern GEGU .index_block Cindex$w_used) ! If over block, 


n 3 
LBR_INDEX 16-Sep-1984 01:56:1 VAX-11 Bliss-32 Page 61 
Vbe=000 key_search2 12-88-1382 04:38:14 DISK AKSVMEH TER: clea’ OS ACSINDEX. B32;1 ° 13} 
: 1781 H -genpos = .last_entry; ! Set to Last entry in block | 
: 17 
s 17 § ' Must propagate actual length of actual index entry strin | 
te? 8 Sj "Lech te caller . ° 
; 1739 60 2 
3; 1756 561 if .test EQL 0 
: 1757 36¢ THEN 
: 1538 267 ay ee tryL try, idx$b_keylen] 
° e eSCLGSCow_Len = .entr -Cur_entry, xod_Keylent; 
: 1760 565 REYORN true: 4 . . 
: 176 3567 ELS 
; 176 568 RETURN false; 
> 1764 2569 
: 1765 2570 1 END: 
OFFC 00000 KEY_SEARCH2: 
<WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 2442 
5E 80 AE 9E 00002 MOVAB -128(SP5, SP ; 
08 04 BC E8 00006 BLBS § @INDEX DESC, 1$ + 2497 
50 000000006 8F BO 6 OO MOVL #LBRS_ INTRNCERR, RO + 2499 
SA 08 BC ge 00012 1$ MOVZWL @INDEX BLOCK, MAX + 2501 
59 01 DO 00016 MOVL : 2502 
5B 04 00019 CLRL —CLAST ENTRY : 2503 
57 04 00018 CLRL = CUR_ENTRY : 2504 
5A D5 0001D TSTL MAX” : 2506 
05 12 0001F BNEQ 2$ ; 
59 01 CE 00021 MNEGL #1, TEST : 2509 
66 11 6 024 BRB : 2506 
56 0c AC DO 00026 28 MOVL  KEY_DESC, R6 + 2525 
59 D5 0002A 3$ TSTL ‘TEST : 2513 
5E 15 0002C BLEG ~=s 8S F 
SA 57 01 O002E CMPL § CUR_ENTRY, MAX ; 
59 18 00031 BGEQ & ; 
54 57 08 AC C1 00033 ADDL3 INCEX_BLOCK, CUR ENTRY, R4 + 2522 
53 57 08 AC C1 00038 ADDL3 INDEX-BLOCK, CURTENTRY, R3 > 2521 
26 04 BC 05 3 03D BBC #5, @INDEX DESC, : 2515 
52 6— 9E 2 Oke MOVAB FATRYNAMGUF, R2 > 2522 
51 13 AG 9E 0004 MOVAB 19(R4), RI ; 
55 12 A3 9A 6 049 MOVZBL 18(R3), R5 : 3521 
50 55 20 04D MOVL RS, R : 2522 
00006 30 030 BSBW § MOVETO_UPPER_CASE : 
54 01 pO 05 MOVL > 2524 
55 00 04 86 0c BC D 096 CMPCS  @KEY_DESC, a4(R6), #0, RS, ENTRYNAMBUF : 
88 1A 8 BGTRU 4$ F 
54 01 D9 0006 SBWC Ot i#1, RG ; 
59 54 b 063 4$ MOVL 4, TEST ; 
18 11 00066 BRB $ : 
55 A3 9A 00068 5$ MOVZBL 18(R3), RS ; 3532 
58 01 pO 0006C MOVL #1, RB > 25 
| 
{ 


Loe NDEX 
VO04= key_search2 


55 00 
10 «BC 08 BC 
50 


; Routine Size: 192 bytes, 


04 86 
58 
59 
58 
37 
05 
14 BC 
10 «BC 
10 
10 «BC 
57 
oc «BC 
50 


Routine Base: 


— 
= 

OP POUMDOUMO FOOLS NNOOrW 

"OOM OD FONE OO OOM NNO -"WEO 


AD 

08 AF 
12 B4 
B9 

BC 

50 BD 

BF 


SCODES + OBCF 


8$: 


9$: 


10$: 


11$: 


CMPCS 


VAX-11 Bliss-32 V4.0-74 


TRY, LAST_ENTRY 
S5)CCUR.ENTRYI, CUR_ENTRY 


P), #5 


R8 
TEST 
EN 
C 


~ 
> 
vw 
~ 


_ENTRY, @ADDPOS 
“ENTRY, @GENPOS 
#16, SINDEX_BLOCK, @GENPOS 


LENTRY, @GENPOS 


T 
T 
EX BLOCK, CUR_ENTRY, RO 
RO}, akEY_DEST 


wo HE 2 BOM ONO-WANNOWD® 
—oOZ Mm rPOOocl C MOV PrP K-—C ROa— 
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@KEY_DESC, @4(R6), #0, RS, 19(R4) 
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LBR_ INDEX 1984 01:56:12 VAX=11 BLiss-32 v4.0-74 p 7 
V04= as Ps Vet eS nn od 29° 05), 


find_ index 


3; 1767 571 1 2SBTTL ‘find_index'; 

; 1768 326 1 GLOBAL ROUTINE find_index (vbn, address) : JSB_2 = 

: 1769 573 1 

: 1770 574 1 See- 

: 1771 575 1! This routine locates a specific block in the Library 

; 1776 576 1! file and returns the address of the block in memory 

3; 177 arr Ua SF If the block is not currently cached in memory, it 

3 1774 578 1! will be automatically read from disk and added to the 

3 1775 579 1! cache. 

; 1f78 580 1! 

3 177 581 1 ! Inputs: 

: 1778 2b¢ 1! 

: 1779 583 1 vbn = requested block number in file 

; 1780 584 1! address = Longword to receive address of block 

: 1781 585 1! 

: HA 586 1 ! Outputs: 

: 178 587 1! 

>: 1786 2588 1! address = Address of block in memory 

; 1785 $268 1 f= 

3: 1786 590 1 

3: 1787 2591 2 BEGIN 

: 1788 $236 

3; 1789 59 BIND 

; 1790 2594 header = .lbr$gl_controlClbr$l_hdrptr] : BBLOCK; 

: 1791 2595 

3 136 2596 LOCAL 

: 179 $29f status, 

; 17 th 3 cache_entry: REF BBLOCK; ! Current cache entry address 

; 18 sone § status = lookup_cache(.vbn, cache_entry); ! Lookup block in cache 

3; 1798 $o0e 2 IF .status ! If found, 

: 1799 260 THEN 

: 1800 2604 N 

; 1801 2605 -address = .cache_entry Ccache$l_address); ! Return address 

; 1306 2606 3 RETURN true; 

3; 180 2607 2 END; 

3: 1804 2608 2 

: 1805 2609 2! , 

3 1308 sole 2 Attempt to read in multiple blocks if vbn is in the pre-allocated index 

3; 1808 3612 IF .vbn LEQU .header(lhd$l_hiprusd) 

3; 1809 261 THEN BEGIN 

; 1810 P sole perform (read_n_biock (.vbn, MIN (.lbr$gl_maxidxrd, !Read in some index blocks | 

3 131) 615 (,header Clhd$l_hiprusd] - .vbn + 1)))); 

3 13g seis ertorat find. tndext.von. .address)); 'Recurse to lookup in cache 

3; 1814 618 ELSE BEGIN 

; Hy a 23) perform(read_block(.vbn,.address)); ! Read from disk 

; 181? 621 perform (add cache (.vbn, Soghe onary esi: Add cache List entry 

: 1818 6 ; cache_entry Ccache$l_address] ="..address; 

3; 1819 6 | 

; 1820 624 END; 

i: 1821 625 

; 18 § 2626 RETURN true; 

3: 182 2627 
| 


dD 4 
LBR_INDEX 16-Sep-1984 01:56:1 VAX=11 Bliss-32_V4.0-74 P 4 
vO4=000 find_index 1073601 98e 9385505 DT SKSVMGMASTER CLEA. SRCIINDEX.B32; 1 29° 28) 


_z 


| 
} 
| 
: 1824 2628 1 END; | ; 
| Py 
| $ 
1C BB 00000 FIND_INDEX:: | 3 ¢ 
PUSHR #*M<R2,R3,R4> 3; 2572 3 
SE 4 ¢2 000 SUBL2 #4, § : ; 
5 0 7D 0000 MOVG RO. R : ; 
50 00006 CF D0 00008 MOVL LBRSGL CONTROL, RO : 2594 ; 
22 0A AO DO 990 MOVL O(RO); R : : 
1 $f : 011 MOVAB CACHE_ENTRY, R1 + 2600 ; 
50 p 0014 MOVL  VBN, R : : 
00006 30 00017 BSBW LOOKUP_CACHE F 2g 
99 50 E9 OOO1A BLBC STATUS, 1$ 3 2602 3 ¢ 
0 6E DO 0001D MOVL ACHE_ENTRY, RO + 2605 3 2 
64 08 Ad DO 00020 MOVL (RO)> (ADDRESS) : 3 ¢ 
48 11 00024 BRB : 2606 : ¢ 
62 A2 53 D1 00026 1$: CMPL  VBN, 98(R2) ; 2612 2 ¢ 
29 1A OO02A BGTR : :¢ 
52 62 A2 3 C3 0002C SUBL3  VBN, 98(R2), R2 ; 2615 i ¢ 
50 01 A2 9E 00031 MOVAB 1 ; i ¢ 
51 0000G CF D0 00035 MOVL  §LBRSGL_MAXIDXRD, R1 ; 2 ¢ 
50 51 D1 OOO3A CMPL R1, RO F i 
03 15 0003p BLEQ ; ; ¢ 
51 50 00 0003F MOVL RO, R1 : 2 ¢ 
50 53 20 00042 2$: MOVL -VBN, RO ; i @ 
00006 30 0004 BSBW READ_N_BLOCK 3 3 ¢ 
29 20 9 00048 BLBC  STATOS; 5$ ; 2 ¢ 
50 53 7D 00048 MOVQ VBN, R ; 2616 i @ 
BO 10 0004 BSBB = FIIND_ INDEX ; 3 ¢ 
1E 50 €8 0005 BLBS STATOS, 4$ : 3 
1F 11 0005 BRB ; :¢ 
50 53 7D 00055 3$: MOVQ =~ VBN, _-RO : 2619 3 
00006 30 00058 BSBW READ BLOCK : 3 
16 50 9 00058 BLBC  STATOS, 5$ : :e 
51 6F E 0005€ MOVAB CACHE_ENTRY, R1 > 2621 3 2 
50 5 6 00061 MOVL VBN, RO : i ¢ 
00006 30 00064 BSBW ADD. CACHE ; 3 ¢ 
OA 50 £9 00067 BLBC STATUS, 5$ : 3 
50 6E DO 0006A MOVL CACHE ENTRY, RO : 2622 ie 
08 Ao 64 D0 90060 MOVL (ADDRESS), &(RO) : 3 é 
50 ot D9 999 1 4$: MOVL 1, RO : 2626 : é 
5E 4 CO 00074 5$: ADDL2 #4. SP : 26 8 | : 
1¢ BA 00077 POPR #*M<R2,R3,R4> : 3 4 
05 00079 RSB : | 2 § 
; Routine Size: 122 bytes, Routine Base: SCODES + OC8F | : ‘ 
| es 
i 
3 4 
i 
2 4 
: 4 
a 4 


sesncenaemae tena = a ew 5 


4 
LBR_INDEX 1-se -1984 01:56:1 VAX-11 Bliss-32_V4.0-74 Page 65. 
vO0=000 create_index 12360-1984 9:39:19 DI SKSUMEMASTERSCLBR. SRCSINDEX.B32; 1 . (21) | 
3 3 $ 629 1 XSBITL ‘create_index'; ; 
; : f ° » : ROUTINE create_Tndex (vbn, address) = : 
> 1829 6 ¢ 1! : 
; 1830 6 1} This routine allocates a new index block in the file, : 
3 + 1 $ : } initializes it, and returns the rfa and address. ; 
; 18 : 6 § 1 ! Inputs: : 
; 18 6 2. F 
3 1835 638 1! None 22 
W883 1 | outou : 
; ' Outputs: 3 
3 1834 641 1! : ; 
3; 1839 ots 1! vbn = VBN of newly allocated index block . 
; 1840 645 1! address = Address of index block in memory :¢ 
3 1841 644 1 Ie-- :¢ 
: 1862 645 1 4 
3 184 646 BEGIN 3 ¢ 
3 1844 64 3 
; 1845 648 2 Bl ; ¢ 
> 1846 2649 context = .lbr$gl_controlClor$l_ctxptr] : BBLOCK, 28 
> 1847 3630 2 header = .lbr$gl_ControlClbr$l_Rdrptr) : BBLOCK; 72 
> 1848 651 2 
3 1849 2652 LOCAL 7 2 
; 1850 265 cache_entry: REF BBLOCK; ! New cache entry address 2 
> 1851 2654 ; § 
; 1926 655 2! : 
: 1327 628 § ; Allocate block from index cache if possible : § 
3 1855 658 2 IF .header(l\hd$l_freeidx] NEQ 0 22 
; 1856 2659 THEN BEGIN @ 
3 1857 660 CAL :@ 
: 1858 661 buffer : REF VECTORL,LONG); 2 § 
; 1860 see i erform(find_block(.header(lhd$l_freeidx], .address, cache_entry)); :@ 
> 1861 2664 uffer = ..address; 3 2 
; 1368 2665 .vbn = ,header(lhd$l_freeidx); | 7 ¢ 
: 186 2666 headerCihd$l_freeidx] = .buffter(0J; : § 
3 1864 2667 AL TS idx$c Length. .buf fer): ; | : 
3; 1865 2668 header(lihd$l_freidxblk] = -headerELhd$l_freidxblk) - 1; 3 ¢ 
3 1866 2669 F ..vbn GTRO .header(lhd$l_hiprusd] 3 @ 
3 1867 2670 THEN header(lhd$l_hiprusd) = ..vbn; 2 ¢ 
: 1868 671 END ’ 
§ 1368 O76 ELSE BEGIN : : 
3 Ht th perform(alloc_block(.vbn, .address)); ! Allocate a disk block | : 
; 1872 75 Add the allocated block to the index cache | : 
3; 1874 677 perform (add_cache (..vbn, cache_entry));! Add block to cache List F 
3 137? o78 ,  cache_entry Ceache$l_address] = ..address; ‘ 
3 1899 680 : Initialize the index block : 
3 1378 681 ! 3 
: 1879 6 § 4 BEGIN : 
; 1880 6 4 : 
; 1881 684 4 index_block = ..address: BBLOCK; ! Address index block : 
; 1882 685 4 | : 
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LSS 


create_index 


F 4 
16-Se 
14-Se 


index_block Cindex$w_used] = 0; 
END; 


END; 

mark_dirty(..vbn); 
header(lhd$l_ideblks] = .headerClhd$l_idxblks] + 1; 
context Cctx$v_hdrdirty] = true; 


RETURN true; 


1 END; 
SA 
00 
62 
62 
08 
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Se 93 :3$:1¢ VAX-11 Bliss-32 V4.0-74 P 
4 12:37:34 DISKSVMSMASTER: CLBR.SRCJINDEX.B32; 1 


! No space used initially 


! Mark index block modified 


OFFC 00000 CREATE_INDEX: 
. WORD 


C2 00002 


DO 0000 


ooo 
oO 
> 
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7 
| 
i 
; 
| 
: 
| 


~ 


= 
bed 


™m 
bad 


' Count another index block 
! Mark header dirty 


Save R2,R3.R4.R5,R6,R7,RB-RI-RIO,R11 
LBRSGL_CONTROL, RO 
14(RO)> RB 


CHE_ENTRY, R2 
ADDRESS, R1 

R3, RO 

STA $ 
QADDRESS, BUFFER 


° ) 
(BUFFER), 90(R6) 
#0, (SP), #0, #6, (BUFFER) 


86(R6) 
(R7), R2 

R2, 98(R6) 

2$ 

R2, 98(R6) 
ADDRESS, R1 
ALLOC_BLOCK 

STA 

CACHE ENTRY, R1 
(R7), "R2 

R2, RO 

ADO_CACH 

STATUS, 3$ 
CACHE ENTRY, RO 
BADDRESS, 8(RO) 
@ADDRESS. RO 
(RO) 


R2, RO 
MARK_DIRTY 


<r 
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4 | 

yec2000 create_index 18-5 38. 1986 TF 35: if DT EKSVMGMASTE ae cleR” SRCTINDEX. B32;1 Page $7 | 
66 «A NC 102(R6) : 269 

“¢ " RRB ie aot ee 

be 3$: RET § 7 


; Routire Size: 138 bytes, Routine Base: S$CODE$ + 0D09 


yec=000 delete_index 


1898 698 1 XSBITL ‘delete_index'; 
199 ROUTINE delete_Tndex (vbn) = 
BRL 
901 ‘ i Deallocate the memory used by an index block and 
90 4 ! remove the cache entry. 
3% at 
ope $ Inputs: 
308 vbn = VBN of index block to delete. 
908 ! Outputs: 

None 

BEGIN 


IND 
context = .lbr$gl_controlClbr$l_ctxptr] : BBLOCK, 
header = .lbr$gl_controlClbr$l_Adrptr] : BBLOCK; 


LOCAL 

blockaddr : REF VECTORC,LONG), 
status, 
cache_entry : REF BBLOCK; 


phe af om Maree ble yp blockaddr, cache_entry)); 'Get block in memory 
F .vbn LEQU”.headerilhd$l_hipreald 
THEN BEGIN 
blockaddr([0] = .header(lhd$l_freeidx]; 
header(lhd$l_freeidx) = .vbn; : 
header(lhd$l_freidxblk] =_.header(Clhd$l_freidxblk] + 1; 
cache_entry(cache$v_dirty] = true; 


E 
ELSE perform (dealloc_block (.vbn)); ! Just deallocate block 
header(Clhd$l_idxblks] = .header(Clhd$l_idxblks] - 1; 


context Cctx$v_hdrdirty] = true; ! Mark header dirty 
RETURN true; 
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OFFC 00000 DELETE_INDEX: 
WORD Save R2,R3,R4,R5,R6,R7,.R8,R9.R10,R11 


WO 

5E 08 ¢2 0000 SUBL 

20 00006 CF 00 990 MOVL BRS L_CONTROL, RO 
0A AO 70 OA MOVO (RO)> R 

52 6E 9E 9 MOVAB CACHE ENTRY, R2 

51 04 AE 3 1 MOVAB BLOCKADDR, 1 

50 4 AC DO 00015 MOVL VBN, RO 


H 4 
ergo 71982 FSi 85:9 = UISSUmBMASTERSCLBR SRC SINDEX.832:1 29° 288 
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LBR_INDEX 1b-se Sep-1984 VAX=11 s-32 V4.0 Pa 9! 
vies tid delete_index 12r8ee= 1 8Re Bb SS1F PN eet ee Meee S npex.e3251 2829s 
00006 3 19 BSBW FIND BLO : 
3 98 9 1¢ BLBC STATO sf : 
SE 3 04 i bt f CHP 08 Re) ! 2727 
4 Bf A Ad DOD & MOVL 9 ame @BLOCKADDR : 2729 
A A 4 ag D MOVL BN, 90(R3) + 2730 
6 Ad D0 INCL + 2731 
5 F p MOVL CACHE ENTRY, RO : 2732 
a ee A 11 A BAgee 2s ae t 2727 
50 04 AC p 8 1$ MOVL : $i¢/ 
009 G 04 BSBW tats BL 0CK : 
OA E 4 BLBC STATUS : 
66 Ad 07 00046 2$ DECL  102(R35 + 2736 
04 Ab 08 88 0004 BISB2 #8, 4(R4) + 2738 
50 01 DO 00040 MOVL #1. RO + 2739 
04 00050 3$ RET + 2741 


; Routine Size: 81 bytes, Routine Base: $CODE$S + 0093 
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1984 01:56:1 VAX-11 Bliss-32_V4.0-74 P 70 
1984 93:39: DISKSVMSMASTER: CLBR.SRCJINDEX.B32;1 7m 255 


3 1941 742 1 XSBTTL ‘add_index'; ; 
: 194¢ 243 ROUTINE add_Tndex (index, vbn, index_block) = : 
: 1944 745 1 fase : 
3 1945 6 | 1! 3 
: 138 747 1! Create a key which points to the specified index block 
; 194 748 1! n the parent index block. The highest key in the 
3 1308 re : current block is used as the key value. 
; 1950 751 1! Inputs: ; 
3; 1951 £36 1! 3 
$ 1326 Le 1? vbn = VBN of the index block ; 
3 1327 Pee : index = Primary index number : 
> 1955 136 1 i Outputs: ; 
3; 1956 7Ss7 1! 
3; 1957 758 1! None 
3; 1958 759 1 Se<- 
: 1959 760 1 
: 1960 761 BEGIN 
3: 1961 166 
3 1oe8 76 MAP 
; \oe7 he: index_block: REF BBLOCK; ! Address of index block : 
: 1965 766 2 LOCAL : 
3; 1966 767 entry_size, ! Size of each entry 
: 1967 768 Last_entry: REF BBLOCK, ' Last index entry in block 3; $ 
3; 1968 2769 index_desc: REF BBLOCK, ! Address of index descriptor 3 A 
; 1308 sine rfa: BBLOCK (rfa$c_length); ! RFA to be associated with key 3 : 
: 1971 2778 it 
: 1972 277 index_desc = -lbrSal control Clbr$l_hdrptr] + Lhd$c_idxdesc : m 
; 197? give : ; + U.index-1)*idd$c_Tength; 7 ¢ 
; 1975 3776 ; Find the Last entry in the index block. 
: 1977 2778 2 entry_size = idx$c_length + .index_desc Cidd$w_keylen]; 
3; 1978 ihe last_entry = .index_block + index$c_entries 
; + 4 re0 , + .index_block Cindex$w_used] - .entry_size; 
: 1981 28 Setup special RFA which points to this index block. 
; 1988 784 2rfa fr fast _vbn) =_.vbn; ' Point to this block 
3 138e re? rfa rfa$w_offset) = rfa$c_index; ! Mark as index pointer 
: 1908 A tA Add the key to the parent index. 
F 1988 789 if; index_dese Cidd$v_ascii) ! If ASCII string keys, 
> 1990 791 BEGIN 
3: 1991 79 LOCAL ; 
3 1936 as desc: BBLOCK Cdsc$c_s_bln]; ! String descriptor 
: 1994 795 desc Cdsc$w_length] = .last_entry piéxBb.keyton; 
3; 1995 796 desc [dsc$a_pointer] = last_entry idx$tkeynamed; 
3: 1996 P 2797 perform( add_key (.index, désc, rfa, 
1997 798 -index_block Cindex$l_parent]) ); 


aef 


} 
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last_entry = .next_entry; 


next_entry = .mext_entry + idx$c_rfaplsbyt + .next_entryLidx$b_keylen]; 


Setup special RFA which points to this index block. 
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; 2007 807 1 XSBITL ‘add_index2'; 
; 008 808 ROUTINE add_Tndex2 (index, vbn, index_block) = 
: 2010 a0 ] le=- 
; 2011 811 1! 
; ois B16 1! Add_index2 is a modified add_index to handle indices 
: 201 815 1! with variable Length keywords. 
3 2014 814 1! Create a key which points to the specified index block 
3 sole 815 1! in the parent index block. The highest key in the 
: spig $18 ; } current block is used as the key value. 
$k BRT | tnoutss 
; 2020 2820 1! vbn = VBN of the index block 
: soei 38 1 : } index = Primary index number 
: $058 8 Q 1 | Outputs: 
: 2024 2824 1! 
3; 2025 2835 3 None 
3: 2026 826 1 !--- 
3: 2027 2827 1 
; sos 2828 BEGIN 
; 594 soe? 
; $9 0 2830 MAP 
7 ooe. see index_block: REF BBLOCK; ! Address of index block 
; 5038 oRas 5 LOCAL 
3 2034 2834 2 entry_size, ! Size of each entry 
3; 2035 2835 2 last_entry: REF BBLOCK, ' Last index entry in block 
3; 2036 2836 2 next_entry : REF BBLOCK, ! search for Last index entry in block. 
3; 203 2837 2 index desc: REF BBLOCK, ! Address of index descriptor 
3 soF so38 § rfa: BBLOCK (rfa$c_lengthi; ! RFA to be associated with key 
: 204 2840 2 
3 204 2841 3 index_desc = olorSyl control Clbr$l_hdrptr] + Lhd$c_idxdesc 
: so seeg 7 + (,Index-1)*idd$c_Tength; 
: 204 B44 é Find the last entry in the index block. 
: $04 2846 last_entry = .index_block + index$c_entries; 
; soe sper next entry = .last gatry: . . ; 
3 204 848 WHILE .next_entry CSS .index_block+index$c_entries+. index_blockLindex$w_used] DO 
; 3849 BEGIN 
; 2851 
; Ba 5 
3 854 ! 
; 855 ! 
; 856 rfa C(rfa$l_vbn) =_.vbn; ! Point to this block 
; S20 rfa rfa$w_offset] = rta$c_index; ! Mark as index pointer 
: +4 i Add the key to the parent index. 
: 206 a1 if .index_desc Cidd$v_ascii] ' If ASCII string keys, 
; 206 Ha THEN 
3; 206 86 BEGIN 

| 


3; Routine Size: 116 bytes, Routine Base: $CODE$ + 0E4D 


m 4 
LBR_INDEX 16-Se 4 VAX=11 Bliss-32_V Page 73 LBI 
1042000 add_index2 1a-S8ep- 1384 93: 35: if DISK AC SVMEH TER: clea” she INDEX.B32;1 ss (24) 
3; 2064 64 LOCAL 
: 065 9 desc: BBLOCK Cdsc$c_s_binj; ! String descriptor 
; 06? 6 desc pascée. Length _-last entry Cidx$b_keylen]; 
> 2068 68 desc Cdsc$a spointer last sentry Cidxst “keynamed; 
: 2069 P 2869 perform( add_key (.in dex, désc, 
3; 2070 870 + index_block Cindexst iparent?) ); 
; 2071 71 END 
; Ore i ELSE 
3 Te sf? RETURN Lbr$_intrnlerr; ! add_index2 only for ASCII keys 
3 2075 gf? § RETURN true; 
: 2076 76 
: 2077 877 1 END: 
001C 00000 ADD_INDEX2: 
-WORD Save R2,R3,R4 ; 2808 
5E 10 ¢2 00002 SUBL2 #16, SP : 
51 00006 CF D0 00005 OVL  LBRSGL_CONTROL, R1 : 2841 
50 04 AC DO OOOOA MOVL INDEX, "RO + 2842 
54 0A B140 7E 00005 MOVAQ a10cRi CRO]. INDEX DESC : 
54 ooBC C4 4 0001 MOV 188(R4), I pest ; 
53 0c Ac DO 00018 MOVL INDEX aiock. oe : 2846 
50 OC A3 9E 000IC MOVAB 12(R3), LAST_E : 
52 50 pO 000 9 MOVL = LAST_ENTRY, REXT” RENTRY : 2847 
51 63 3C 00023 1$: MOVZWL (R3)~ RI : 2848 
51 OC A341 9E 00026 MOVAB. 12(R3)CR1], R1 : 
51 52. D1 00028 CMPL NEXT_ENTRY, R1 : 
OE 18 O002E BGEQ 2$ : 
50 52 D0 000 6 MOVL NEXT_ENTRY, LAST_ENTRY : 2850 
51 06 A2 9A 0003 MOVZBL 6(NERT ENT R > 2851 
52 07 A142 9E 00037 MOVAB 7(R1)CNEXT_ENTRYJ, NEXT_ENTRY : 
ES 11 0003C BRB 1$ : 2848 
08 AE 08 AC 00 00056 2$: MOVL VBN, RFA 3 2856 
OC AE 01 AE 0004 MNEGW o#'1, RFAS. 3 2857 
1E 64 3 90047 LBC (INDEX_D 3 2861 
6E 06 AQ 9B 0004A MOVZBW 6(LAST -pasays > Esc > 2867 
04 AE 07 «~AO 9E 0046 OVAB RO}. DESC +4 : 2868 
02 a3 DD 0005 PUSHL  2(R3) : 2870 
O¢ AE OF 0036 PUSHAB RFA ; 
AE 9F 0005 PUSHAB DESC : 
04 AC DD 0005C PUSHL INDEX : 
FSFE OC 4 FB 005F CALLS #4, ADD_KEY : 
09 0 FS 0064 BLBS STATUS, -4$ : 
50 000000006 8F : O9e6 3$: MOVL #LBRS$_INTRNLERR, RO : 2873 
50 01 00 a970 4$: MOVL #1, RO : 2875 
04 0007 RET : 2877 
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ZSBITL ‘reset highest’; 
ROUTINE reset_Righest (index_desc, vbn, index_block) = 


i] ae 
' 

Reset the index pointers in the parent blocks 
pointing to the specified index dDlock. Each 
index pointer in a parent block contains the 
highest key in the subindex block in order for 
binary searches to work. This routine is called 
when the index block has changed in order to 
reset the parents highest keys to the proper value. 


Inputs: 


index_desc = Address of primary index descriptor 
vbn = VBN of index block 
index_block = Address of index block 


Outputs: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
] 
i 
The highest keys in the parents are reset. 
] 


BEGIN 


MAP 
index_desc: REF BBLOCK, 
index block: REF BBLOCK; 


LOCAL 
entry_size, 
last_entry: REF BBLOCK 
parent_block: REF BBLOCK, 
parent_entry: REF BBLOCK; 


Address of index descriptor 
Address of index block 


Size of each entry 

Last index entry in block 
Address of parent block 
Address of parent entry 


Fg, neon pieee Cindex$l_parent] EQL 0 ! If no parent 

, RETURN true; ! then return done 

; Find the Last entry in the index block. 

EOSCLERLZS = Soto STBEE f indetdc“entfegsee-te7ten 

~ + .index_blick indexSw used! - .entry_size; 

Find the parent index block. 

perform (find_index (.index_block Cindex$l_parent], parent_block)); 
: Locate the pointer to the subindex block. 

paces entry FROM .parent_block+index$c_entries BY .entry_size 


BEGIN 


Pot | 
BR.SRCJINDEX.832;1 
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OFFC 00000 RESET_HIGHEST: 
. WORD 


5 
1b-se -1984 01:56:1 VAX-11 Bliss-32 V4.0-74 Page 75 ony 
04 reset_highest 12-808- 138 93:39:14 SEK SUMGHASTERS VOR SRCSINDEX.B32:1 . (25) 
; 21 935 MAP 
: ] i 2 § entry: REF BBLOCK; ! Address index entry 
: 2139 9 IF_.entry Cidx$l_vbn] EQL .vbn ! If points to subindex, 
: 5140 339 THEN ° 
3; 2141 940 4 BEGIN 
: 146 941 & arent_entry = .entry; ' Set address of parent entry 
3: 214 942 4 XITLOOP; ! then exit the scan 
3 2144 94 ND; 
; 2145 944 END; 
: 2146 945 ! 
§ 1ot 208 Update the key in the parent index. 
5 2149 948 2 if .index_desc Cidd$v_ascii] ! If ASCII string keys, 
: $150 949 5 THEN - marion 
: $133 3a sarent mabey Eid kevtenll © stent Cidx$b_keylen] 
; arent_entr x eylen] = .last_entr x eylen]; 
; $183 326 CHSMOVE(. Last _entry-Lidx$b_keyleni.~! Copy ASCII key 
; size 95 last_entry Cidx$t_keyname], 
3 2155 2954 parent_entry Cidx$t_keyname]); 
: 2156 955 END 
3; 2157 956 ELSE 
: $i26 eH parent_entry Cidx$l_keyid] = .last_entry Cidx$l_keyid); 
5 sey 2360 § Mark the parent index block modified. 
; $i6¢ 961 § mark_dirty(.index_block Cindex$l_parent)); 
3: 216 $308 ' 
3 he: sper § Reset the highest key in the parents parent. 
3 $106 344 § reset_highest(.index_desc,.index_block Lindex$l_parent],.parent_block); 
3 $188 2967 2 RETURN true; 
3 2169 2968 2 
3; 2170 2969 1 END; 
Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 ; 2879 
5E 04 C2 00002 SUBL2 4, SP 3 
51 0c AC OD ities MOVL JNDEX BLOCK, R1 3; 2916 
57 02. Al 9 0009 MOVL (R1)> R7 3 
60 13 00000 BEQL 6 3 
56 04 AC go QO00F MOVL NDEX_DESC, R6 : 2922 
53 02 Ad 3C 90013 MOVZWL 2(R6)> ENTRY SIZE : 
53 06 co 001 ADDL2 #6, ENTRY_SIZE : | 
50 61 C OOO1A MOVZWL (RI) > 2924 
28 1 C1 00010 ADDL R1 fi : 
5 53 €2 00021 SUBL2 ENTRY SIZE, R2 ; 
52 0c £0 00 4 ADDL2 #12, CAST_ENTRY : 
51 6 f 027 MOVAB PARENT_BLOCK, R1 > 2928 
50 5 4 OO2A MOVL R7, R F 
FORE 0 00020 BSBW FIND INDEX 2 
3F 50 €9 00030 BLBC STATOS, 7$ 3 


5 
LBR_INDEX 1b-s Sep-19 VAX=11 Bliss-32_V4.0-74 Page 76) 
v04= reset_highest 14-Sep eats 7 93; 35: if DISKSVMSMASTER: cleR SRC JINDEX.B32;1 . (25) | 
51 6E 0c ¢1 000 ADDL3 H2 PARENT gto. ENTRY : 2938 
08 AC 61 01 00037 1$: CMPL ENTRY) : | 
93 if 038 BNEQ : 
50 1 D0 00030 MOVL NTRY, penal paves + 2941 
03 11 0004 BRB 3 2940 
51 3 CO 00042 2$ ADDL2 ENTRY. SIZE, ENTRY : 2932 
FO 11 0004 BRB 3 
11 6 £9 0047 3$ BLBC = (R6) : 2948 
06 AO 06 A2 90 0004A MOV GLAST. ENTRY), 6 (PARENT_ENTRY) > 2951 
51 06 Ad 9A O004F MOVZBL 6(LAST-ENTRY : 2952 
07 a0 07 A2 31 <8 33 Move RI (CAST RENRY) , 7(PARENT_ENTRY) : 954 
06 AO 06 A3 D 6 28 4$: MOVL 6(LA AST_ENTRY), 6(PARENT_ENTRY) > 295 
50 ; p 69 5$: MOVL RO : 2961 
0000v 06 BsBu ARK ; 
6 bb 066 PUSHL PARENT. BLOCK ; 2965 
7E : D 0006 MOVa. R6, -(SP : 
91 AF 6 FB 0068 CALLS #3, RESET HIGHEST ; 
50 1 DO OO06F 6$: MOVL #1, R : 2967 
04 00072 7$: RET : 2969 


; Routine Size: 115 bytes, Routine Base: $CODE$ + OEC1 


3 


<r 


BR 
3 7 970 1 XSBTTL ‘reset highes a*s 
; \t? 44 1 ROUTINE reset_Righest (index, index desc, vbn, index_block) = 
3; 2175 378 1 !--- 
; 178 974 1! 
3; 217 975 1! Reset_highest2 is a modified reset_highest 
: 178 378 i! to handle yer able length keyword Tndices. 
: 217 977 1! Reset the index pointers in the parent blocks 
; 2180 443 1! pointing to the specified index block. Each 
3; 2181 979 1! index pointer in a parent block contains the 
3 186 980 1! highest key in the subindex block in order for 
3 137 38) ; | asoare searches to work. This routine is called 
: 21 9 § 1! when the index block has changed in order to 
; 13? oe7 } reset the parents highest keys to the proper value. 
: 2187 985 1 ! Inputs: 
; 2188 986 1! 
; 2189 987 1! index_desc = Address of primary index descriptor 
; 2190 988 1! vbn = VBN of index block 
3; 2191 989 1! index block = Address of index block 
; 135 990 1! 
3; 219 991 1 ! Outputs: 
3 2194 336 ie. 
3; 2195 993 1! The highest keys in the parents are reset. 
3; 2196 994 1! 
3; 2197 995 1 !<-- 
3; 2198 996 1 
3; 2199 2997 BEGIN 
3; 2200 998 
: 2201 999 MAP 
3 a4 000 § index_desc: REF BBLOCK, ' Address of index descriptor 
$ $so7 if index_block: REF BBLOCK; ! Address of index block 
3; 2205 00 LOCAL 
3; 2206 004 entry, ! index block entry 
: 2207 05 entry_size, ! Size of each entry 
; 2208 006 last_entry: REF BBLOCK, ' Last index entry in block 
3; 2209 007 next_entry : REF BBLOCK, ' search for last index entry in block. 
3; 2210 008 parent_block: REF BBLOCK, ! Address of parent block 
3 $i) std parent_entry: REF BBLOCK; ! Address of parent entry 
: 2213 3011 
5 $514 Big IF .index_block Cindex$l_parent] EQL 0 ! If no parent 
: $i3 01 THEN 
: $1$ Bie RETURN true; ! then return done 
3 $i8 b1$ Find the last entry in the index block. 
3 $536 018 next entry = .index block + index$c_entries; | f ; 
; 2221 Ah WHILE, .nent_entry LSS .index_block+index$c_entries+. index_blocklLindex$w_used] DO 
3 $55 021 last_entry = .next_entry; 
3 235 § hext entry = .mnext_entry + idx$Sc_rfaplsbyt + .next_entryLidx$b_keylen); 
: 024 2! X 
; $59 025 : Find the parent index block. 
; 2228 026 : 
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tebe 
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jololeole) 


WN OCONOUS Wr O0w 


; 9 

; 0 

5 1 

+ on: 
: $532 ; 
3 7 0 

3 § 3 0 

3 9 0 

; 2240 os 
: 2241 0 

3 stg 04 
3: 224 04 
3 4G 04 
: 2245 04 
3: 2246 044 
: 2247 045 
3; 2248 3046 
3 soon eet 
3; 2250 048 
3; 2251 049 
3 $526 050 
; 225 051 
5 SSee¢ 026 
3; 2255 05 
: 2256 054 
: 2257 tH 
; 2258 056 
3; 2259 3057 
: 2260 3058 
3: 2261 059 
s 550g 060 
3; 226 061 
3 2264 O6e 
3; 2265 306 
; $506 064 
3; 2267 065 
3; 2268 066 
: 2269 067 
3; 2270 068 
3: 2271 9 
3 § i 070 
3 7 071 
3 2274 Ore 
3: 2275 07 
3 6 074 
: 227 075 
: sf8 O76 
: 9 07 
: 2280 a8 
3 it 44 
i i} 
3; 2285 8 5 
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perform (find_index (.index block Cindex$l_parent], parent_block)); 
Locate the pointer to the subindex block. 


entry = -parent_block+index$c_entries; 
WHILE true DO 
BEGIN 


entry: REF BBLOCK; ! Address index entry 
cr Cidx$l_vbn] EQL .vbn ! If points to subindex. 
BEGIN 
perens entry = .entry; ' Set address of parent entry 
XITLOOP; ! then exit the scan 


entry = .entry + idx$c_rfaplsbyt + .entry Cidx$b_keylen); 
IF vente GTR parent Block ‘ { ; > 


a THEN RETURN Lbr$ intrnlerr; 
' - 
Update the key in the parent index. 
iF ;,index_desc Cidd$v_ascii] ' If ASCII string keys, 
BEGIN 


IF .parent_entry Cidx$b keytend EQL .last_entry Cidx$b_keylen] 
ioe OO ! We're in Tuck, they are the same size 


parent entry Cidx$b_keylen] = . Last_entry Cidx$b keytonds 
HSMOVE(.Last_entry Cidx$b_keylen], ' Copy ASCII] key 
last_entry Cidx$t Keynane). 


-_ parent_entry Cidx$t_keyname]); 
Lt ects ! Remove old entry, compress, and enter new one. 
LOCAL 
parent_entry_siz; 


arent_entry_siz = idx$c_rfaplsbyt + .parent_entry C idx$b_keylen); 
HSMOVE( .parent_block +” index$c_entries + .parent_block[ index$w_used] 

- (.parent_entry + .parent_entry_siz), 

-parent_entry + .parent_entry_siz, 

pberent entry ); ‘compress to cover old entry 
parent_blocklindex$w_used] = .parent_blockLindex$w_used] - .parent_entry_siz; 
pocvers (add_index2 T.index, .vbn, .index_block) ); 


END 

RETURN Lbr$_intrnlerr; ! reset_highest2 only for ASCII keys 
: Mark the parent index block modified. 

mark dirty(. index_block Cindex$l_parent)); 


ELSE 


: Reset the highest key in the parent's parent. 


| 
br$c_pagesize T Don't loop forever if not found 


A Ee | 
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LBR_INDEX $ep-1984 01:56:1 VAX-11 Bliss-32 V4.0-74 
vite reset_highest2 1b-se0-1984 93:38:14 DISKSVMSMASTER: CLBR.SRCJINDEX.832;1 
H o6 084 ! Must check that .parent_block is the address of block .index_block Cindex$l_parent] 
3 ff 5 5 ‘ since the last call to add_index2 may have resulted in a new “parent. 
; Hey 5 § } If there is a new parent then it has already been reset. 
; 2290 43 BEGIN 
3; 2291 5 LOCAL 
5 35 90 blk_adr, 
: 3 29! status; 
3; 2295 09 OF otk ( find index ( .index_block Cindex$l_parent], blk_adr) ); 
> 2296 094 adr EQC .parent_block™ 
: 97 95 
3 98 38 ay BEGIN 
: 2299 97 4&4 status = reset ohighestet. .index,.index desc, .index_block Cindex$l_parent],.parent_block); 
3 2300 098 4 IF NOT .status THEN RETURN Lbr$_intenlerr; 
3 $0) 099 3 ; 
3 Oe 100 END; 
: 230 101 
: 2304 196 RETURN true; 
; 2305 10 
3; 2306 104 1 END; 
OFFC 90000 RESET_HIGHEST2: 
~ WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
5E 08 C2 00008 SUBL2 > 
57 10 AC D0 0000’ OVL Yr} meal R7 
02 a7? D5 00009 TSTL 
03 12 0000C BNEQ 1$ 
000¢ 31 OO00E BRW 11$ 
50 0c A? YE 00011 1$ MOV 12(R7), NEXT_ENTRY 
51 67 3C 00015 2$ MOVZWL (R7), R1 
51 Oc A147 9E 00018 MOV eCRTDER Rv. R1 
51 50 D1 00010 a NEXT_ENTRY, R1 
OE 18 000 BGE $$ 
52 50 00 000 MOVL NEXT Bare a wt ENTRY 
51 06 AO 9A 000 MOVZBL G(NERT AEN R 
50 07 A140 9E 00029 MOVAB 7(R1 UREXT Entry), NEXT_ENTRY 
E5 11 000 B&B 2s 
51 oF 9E 000 3$: MOVAB PARENT _6 BLOCK, R1 
50 02 =A 4 88 MOVL 2(R 
Fog BSBW = FIND INDEX 
6F 0 €9 BLBC STATOS, ‘ 
58 6 4 00 VL PARENT se tit R8 
28 OC A E MOVAB 12(R8)> RY 
5 0200 ¢ i: MOVAB 512(R Cras,” RS 
oc AC 60 D CMPL gENT RY), VBN 
92 is BNEQ 5 
1) MOVL ENTRY, PARENT_ENTRY 
10 11 BRA 6$ 
AO 9A MOVZBL etenre 
4 E MOVAB 7(R1 tenfav. ENTRY 
39 9 CMPL ENTRY, R3 
E 5 BLEQ 4$ 
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LBR_INDEX 1:56:1 VAX-11 Bliss-32 V Page 80. 
y0e7000 reset_highest2 14-Sep-1984 93:38: DT SKSVMEN TER: clea” sre INDEX.B32;1 . (26) | 
77 «11 06 BRB : 3046) 
73 8 BC 59 6$ BLBC @INDEX DESC, 10$ : 3051. 
06 A2 6 AB 91 000 CMPB G(PARERT ENTRY), 6(LAST_ENTRY) ; 3054 
11 ff 06D BNEQ 6 : 
06 As 06 A2 9 O6F MOVE 6(LAST ENTRY), 6(PARENT_ENTRY) : 3057. 
5 6 Ad 9A 4 MOVZBL {LAST ENTR : 3058. 
07 Ab 07 A2 30 8 : 18 move RO, 7(CAST RENtRY), 7(PARENT_ENTRY) : 960 
g | 
59 06 Ag 9a 000 5 7$ MOVZBL 6 (PARENT ENTRY) PARENT_ENTRY_SIZ : 3067 
59 0 £0 00 ADDL ", , PARERT_EN NTRY_SIZ ; 
50 8 3¢ 000 MOVZWL : 3068 
51 58 0 C1 99 A ADDL a), R1 : | 
0 56 9 C1 ADDL a0, A *ENTRY.SIZ, PARENT_ENTRY, RO ; 3069 | 
51 50 ¢2 0009 SUBL2 RO RI : 
51 Oc : 009 ADDL #2, : 
66 60 1 098 MOVE (ROD, (PARENT_ENTRY) + 3071 
68 59 A2 0009C SUBW2 PARENT _ENTRY_SIZ,~ (RB) ; 307¢ 
57 DD 0009F PUSHL : 307 
0c AC DD 0001 PUSHL VB F 
04 aC DD O00A4 PUSHL : 
FE6D cr 03 FB 000A7 CALLS Hy EXD. INDEX2 ; 
7 30 E9 OOOAC 8S: BLBC s! ATUS, ~12$ : 
50 02 A b0 OOOAF 9S: MOVL (R7 + 3081 
0000v 30 00083 BSBW MARK DIRTY : 
51 04 AE 9E 00086 MOVAB BLK Kor, R1 : 3093 
50 02. =A? 6 OOOBA MOVL (R7), R : 
FC9A 30 OOOBE BSBW FIND INDEX : 
22 50 €9 000C1 BLBC  STATOS, 12$ : 
58 04 AE D1 0004 CMPL = BLK_ADR, : 3094 
19 12 000C8 NEQ 11$ : 
58 DD OOOCA PUSHL : 3097 
02 A7 pp d00¢¢ PUSHL 2(R F 
7E 04 AC 7D OOOCE ova INDEX : 
FF28 CF 04 FB 00003 CALLS EMESET: NIGHEST2 : 
08 50 £8 00008 BLBS sth ATUS : 3098 
50 000000006 8F BO 00008 10$: MOVL PLBRS. INTRNLERR, RO ; 
50 01 00 iit 11$: MOVL , RO + 3102 
04 0006 12$: RET : 3104 


; Routine Size: 231 bytes, Routine Base: SCODES + OF 34 


5 
check_lock =3007 1382 93:38:14 


ZSBTTL ‘check lock’; 
hs ROUTINE check _lock : JSB_0 = 


None 
Outputs: 

None 
Routine value: 


Ok to modify LS a 


i 
i 
' 
i 
i 
i 
i 
i 
i 
; true 

lbr$_updurtrav Index is locke 
' 


BIND 
index_desc = - Lbr$gl control Clbr$l_hdrptr] + Lhd$c_idxdesc 


<- 
<s 


0-74 P 1) 
OSRCSINDEX.B32;1 age 8) 


! Name index descriptor for current 


.Ubrdgl control tlorstcuridxd - 1) * idd$c_length 


K; 


IF .index_desc Cidd$v_locked) 
THEN RETURN Lbr$_Updurtrav 


1 

1 

lene 

1 

Check if the index is locked from modification. 
i Inputs: 

2 

5 

§ ELSE RETURN true 

1 


END; ! Of check_lock 


51 0000G CF 00 00000 see sag 


LB 
50 12 Al 0 00005 MOVL 18 
50 0A 8140 7E MOVAQ a1 
50 ooBc §=6C0 COE MOVAB $18 
08 60 4 E1 C #1 
50 000000006 8F 00 
05 RSB 
50 01 00 18: MOVL #1, RO 
05 RSB 


35 bytes, Routine Base: S$CODE$ + 1018 


; Routine Size: 


5 
enSepm198e 12:88:41 DISKSVMSMAS 


t-te 


mark_dirty 14- 


3 ¢ 138 1 XSBTTL ‘mark_dir ety’ 
3 $7 173 : GLOBAL ROUTINE mar dirty (vbn) : JSB_1 = 
3: 2345 141 1 !e<< 
3 rf 145 1 i 
: 234 145 1! Mark an index block modified in memory so tha 
: : \e9 : } it gets written back to disk when the file is closed. 
: 2350 146 1! Inputs: 
; 2351 123 1! ¥ 
: 2g 148 1! vbn = disk block number 
3 H 149 1! 
3 4 150 1 ! Outputs: 
3; 2355 151 1! 
3; 2356 136 1! None 
3 2357 153 1 !e=< 
; 2358 154 1 
: 2359 155 BEGIN 
; 2360 138 
: 2361 15 LOCAL 
3 3363 138 cache_entry: REF BBLOCK; 
3 sece 199 3 perform (lookup_cache (.vbn, cache_entry)); ! Lookup entry in cache 
; 267 166 cache_entry Ccache$v_dirty] = true; ! Mark modified 
3; 2368 164 3 RETURN true; 
3; 2369 3165 
3; 2370 3166 1 END; 
5E 04 (C2 00000 MARK_DIRTY:: 
SUBL2 #4, 
51 6E 33 00003 MOVAB cacHe P ENTRY R1 
00006 30 00006 BSBW  LOOKUP_CACHE 
OA 50 €9 00009 BLBC U 
50 6— 00 0000C MOVL are ENTRY, RO 
oc Ad 01 88 QO000F BISB2 Laine 
50 01 DO 00013 MOVL 
5E 04 CO 00016 1$: ADDL2 jg SP 
05 00019 RSB 


Routine Size: 26 bytes, Routine Base: S$CODE$ + 103E 


sraecy 


2 
Re CLBR. OSRCSINDEX. B32;1 Page 285 


LBF 
v04 


J 5 
LBR_INDEX 16-Sep-1984 01:56:12 VAX-11 Bliss-32 V4.0-74 Page 83 
v04- mark_dirty 14-Sep-1984 13539544 DISKSVMSMASTER: CLBR. SRCJINDEX. B32;1 ’ (28) 
H PSECT SUMMARY 
: | 
: Name Bytes Attributes 
: SCODES 4184 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
: Library Statistics 
: eocococe Symbols -------- Pages Processin 
; File Total Loaded Percent Raped Time . 
: -$255$DUA28: CSYSLIBJSTARLET.L32;1 9776 14 0 581 00:01.0 
: COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /LIS=LIS$: INDEX/OBJ=O0BJ$: INDEX MSRC$: INDEX/UPDATE=(ENH$: INDEX) 
: i a 4184 code + 0 data bytes 


Elapsed Time: 03535-6 
Lines/CPU Min: 220 
Lexemes/CPU-Min: 22428 
pana? Used: 377 pages 
Compilation Complete 
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